home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Internet Tools 1995 April / Internet Tools.iso / mail / elm / elm2.4.p23b.Z / elm2.4.p23b
Encoding:
Text File  |  1993-09-26  |  84.2 KB  |  2,695 lines
  1. Subject: elm 2.4 Patch #23b
  2. Summary: This is an official patch for elm 2.4 system.  Please apply it.
  3. Priority: HIGH
  4.  
  5. THIS IS PART 2 OF A 5 PART PATCH
  6.  
  7. Fix:    From rn, say "| patch -p -N -d DIR", where DIR is your elm source
  8.     directory.  Outside of rn, say "cd DIR; patch -p -N <thisarticle".
  9.     If you don't have the patch program, apply the following by hand,
  10.     or get patch (version 2.0, latest patchlevel).
  11.  
  12.     After patching:
  13.         Apply patchs 23c, 23d, 23e next
  14.  
  15.     If patch indicates that patchlevel is the wrong version, you may need
  16.     to apply one or more previous patches, or the patch may already
  17.     have been applied.  See the patchlevel.h file to find out what has or
  18.     has not been applied.  In any event, don't continue with the patch.
  19.  
  20.     If you are missing previous patches they can be obtained from our:
  21.     archive server.
  22.  
  23.     Syd Weinstein
  24.     elm@DSI.COM
  25.  
  26.     The patches are available from the dsinc archive server
  27.     Send the following message to archive-server@DSI.COM for
  28.     a list of available patches:
  29.  
  30.     Subject: patch list
  31.     send index elm
  32.  
  33. Index: hdrs/defs.h
  34. Prereq: 5.27
  35. *** ../elm2.4/hdrs/defs.h    Sat May  8 15:41:18 1993
  36. --- hdrs/defs.h    Sun Sep 19 19:41:00 1993
  37. ***************
  38. *** 1,8 ****
  39.   
  40. ! /* $Id: defs.h,v 5.27 1993/05/08 19:41:13 syd Exp $ */
  41.   
  42.   /*******************************************************************************
  43. !  *  The Elm Mail System  -  $Revision: 5.27 $   $State: Exp $
  44.    *
  45.    *             Copyright (c) 1988-1992 USENET Community Trust
  46.    *             Copyright (c) 1986,1987 Dave Taylor
  47. --- 1,8 ----
  48.   
  49. ! /* $Id: defs.h,v 5.33 1993/09/19 23:40:48 syd Exp $ */
  50.   
  51.   /*******************************************************************************
  52. !  *  The Elm Mail System  -  $Revision: 5.33 $   $State: Exp $
  53.    *
  54.    *             Copyright (c) 1988-1992 USENET Community Trust
  55.    *             Copyright (c) 1986,1987 Dave Taylor
  56. ***************
  57. *** 14,19 ****
  58. --- 14,59 ----
  59.    *
  60.    *******************************************************************************
  61.    * $Log: defs.h,v $
  62. +  * Revision 5.33  1993/09/19  23:40:48  syd
  63. +  * Defince SEEK_SET in one of our headers as a last resort
  64. +  * From: Syd
  65. +  *
  66. +  * Revision 5.32  1993/08/23  02:46:51  syd
  67. +  * Test ANSI_C, not __STDC__ (which is not set on e.g. AIX).
  68. +  * From: decwrl!uunet.UU.NET!fin!chip (Chip Salzenberg)
  69. +  *
  70. +  * Revision 5.31  1993/08/23  02:45:29  syd
  71. +  * The macro ctrl(c) did not work correctly for a DEL character
  72. +  * neither did it make the backward mapping from a control char
  73. +  * to the letter that is normally used with an up-arrow prefix
  74. +  * to represent the control character.
  75. +  * From: Jukka Ukkonen <ukkonen@csc.fi>
  76. +  *
  77. +  * Revision 5.30  1993/08/03  19:28:39  syd
  78. +  * Elm tries to replace the system toupper() and tolower() on current
  79. +  * BSD systems, which is unnecessary.  Even worse, the replacements
  80. +  * collide during linking with routines in isctype.o.  This patch adds
  81. +  * a Configure test to determine whether replacements are really needed
  82. +  * (BROKE_CTYPE definition).  The <ctype.h> header file is now included
  83. +  * globally through hdrs/defs.h and the BROKE_CTYPE patchup is handled
  84. +  * there.  Inclusion of <ctype.h> was removed from *all* the individual
  85. +  * files, and the toupper() and tolower() routines in lib/opt_utils.c
  86. +  * were dropped.
  87. +  * From: chip@chinacat.unicom.com (Chip Rosenthal)
  88. +  *
  89. +  * Revision 5.29  1993/08/03  19:05:33  syd
  90. +  * When STDC is used on Convex the feof() function is defined as
  91. +  * a true library routine in the header files and moreover the
  92. +  * library routine also leaks royally. It returns always 1!!
  93. +  * So we have to use a macro. Convex naturally does not provide
  94. +  * you with one though if you are using a STDC compiler. So we
  95. +  * have to include one.
  96. +  * From: Jukka Ukkonen <ukkonen@csc.fi>
  97. +  *
  98. +  * Revision 5.28  1993/07/20  02:59:53  syd
  99. +  * Support aliases both on 64 bit and 32 bit machines at the same time.
  100. +  * From: Dan Mosedale <mosedale@genome.stanford.edu>
  101. +  *
  102.    * Revision 5.27  1993/05/08  19:41:13  syd
  103.    * make it now depend on mallocvoid
  104.    *
  105. ***************
  106. *** 138,143 ****
  107. --- 178,184 ----
  108.   
  109.   
  110.   #include <sys/types.h>    /* for fundamental types */
  111. + #include <stdio.h>    /* Must get the _IOEOF flag for feof() on Convex */
  112.   #include "../config.h"
  113.   #include "sysdefs.h"    /* system/configurable defines */
  114.   
  115. ***************
  116. *** 311,318 ****
  117.   #define DECEMBER    11
  118.   
  119.   #define equal(s,w)    (strcmp(s,w) == 0)
  120. ! #define min(a,b)    a < b? a : b
  121. ! #define ctrl(c)            c - 'A' + 1    /* control character mapping */
  122.   #define plural(n)    n == 1 ? "" : "s"
  123.   #define lastch(s)    s[strlen(s)-1]
  124.   #define ifmain(a,b)    (inalias ? b : a)
  125. --- 352,367 ----
  126.   #define DECEMBER    11
  127.   
  128.   #define equal(s,w)    (strcmp(s,w) == 0)
  129. ! #define min(a,b)    (a) < (b) ? (a) : (b)
  130. ! /*
  131. !  *  Control character mapping like "c - 'A' + 1" does not work
  132. !  *  correctly for a DEL. Neither does it allow mapping from
  133. !  *  a control character to the letter that is normally used with
  134. !  *  an up-arrow prefix to represent the control char.
  135. !  *  The correct mapping should be done like this...
  136. !  */
  137. ! #define ctrl(c)            (((c) + '@') & 0x7f)
  138. ! 
  139.   #define plural(n)    n == 1 ? "" : "s"
  140.   #define lastch(s)    s[strlen(s)-1]
  141.   #define ifmain(a,b)    (inalias ? b : a)
  142. ***************
  143. *** 482,487 ****
  144. --- 531,553 ----
  145.       char mailx_status[WLEN];/** mailx status flags (RO...)    **/
  146.          };
  147.   
  148. + #ifdef __alpha
  149. + #define int32 int
  150. + #else
  151. + #define int32 long
  152. + #endif
  153. + 
  154. + struct alias_disk_rec {
  155. +     int32 status;            /* DELETED, TAGGED, VISIBLE, ...     */
  156. +     int32 alias;            /* alias name                        */
  157. +     int32 last_name;        /* actual personal (last) name       */
  158. +     int32 name;            /* actual personal name (first last) */
  159. +     int32 comment;            /* comment, doesn't show in headers  */
  160. +     int32 address;            /* non expanded address              */
  161. +     int32 type;            /* mask-- sys/user, person/group     */
  162. +     int32 length;            /* length of alias data on file      */
  163. +        };
  164. + 
  165.   struct alias_rec {
  166.       int   status;            /* DELETED, TAGGED, VISIBLE, ...     */
  167.       char  *alias;            /* alias name                        */
  168. ***************
  169. *** 530,535 ****
  170. --- 596,615 ----
  171.   #    include <string.h>
  172.   #  endif
  173.   #endif
  174. + 
  175. + #ifdef    __convex__
  176. + /*
  177. +  *  Nice work Convex people! Thanks a million!
  178. +  *  When STDC is used feof() is defined as a true library routine
  179. +  *  in the header files and moreover the library routine also leaks
  180. +  *  royally. (It returns always 1!!) Consequently this macro is
  181. +  *  unavoidable.)
  182. +  */
  183. + #  ifndef   feof
  184. + #    define   feof(p)    ((p)->_flag&_IOEOF)
  185. + #  endif
  186. + #endif
  187. + 
  188.   #ifndef ANSI_C   /* ANSI puts these in string.h */
  189.   char *index(), *rindex(); /* names will be traslated by define in config.h */
  190.   char *strtok(), *strcpy(), *strcat(), *strncpy(); /* more in string.h in ANSI */
  191. ***************
  192. *** 573,583 ****
  193.   
  194.   #ifdef POSIX_SIGNALS
  195.   #define signal posix_signal
  196. ! #ifdef __STDC__
  197.   extern SIGHAND_TYPE (*posix_signal(int, SIGHAND_TYPE (*)(int)))(int);
  198. ! #else    /* __STDC__ */
  199.   extern SIGHAND_TYPE (*posix_signal())();
  200. ! #endif    /* __STDC__ */
  201.   #else    /* POSIX_SIGNALS */
  202.   #ifdef SIGSET
  203.   #define signal sigset
  204. --- 653,663 ----
  205.   
  206.   #ifdef POSIX_SIGNALS
  207.   #define signal posix_signal
  208. ! #if ANSI_C
  209.   extern SIGHAND_TYPE (*posix_signal(int, SIGHAND_TYPE (*)(int)))(int);
  210. ! #else    /* ANSI_C */
  211.   extern SIGHAND_TYPE (*posix_signal())();
  212. ! #endif    /* ANSI_C */
  213.   #else    /* POSIX_SIGNALS */
  214.   #ifdef SIGSET
  215.   #define signal sigset
  216. ***************
  217. *** 587,592 ****
  218. --- 667,695 ----
  219.   #endif /* SIGSET */
  220.   #endif /* POSIX_SIGNALS */
  221.   
  222. + /*
  223. +  * Some of the old BSD ctype conversion macros corrupted characters.
  224. +  * We will substitute our own versions if required.
  225. +  */
  226. + #include <ctype.h>
  227. + #ifdef BROKE_CTYPE
  228. + # undef  toupper
  229. + # define toupper(c)    (islower(c) ? ((c) - 'a' + 'A') : (c))
  230. + # undef  tolower
  231. + # define tolower(c)    (isupper(c) ? ((c) - 'A' + 'a') : (c))
  232. + #endif
  233. + 
  234. + /*
  235. +  *    if the seek constants arent set in an include file
  236. +  *    lets define them ourselves
  237. +  */
  238. + #ifndef SEEK_SET
  239. + #define    SEEK_SET    0    /* Set file pointer to "offset" */
  240. + #define    SEEK_CUR    1    /* Set file pointer to current plus "offset" */
  241. + #define    SEEK_END    2    /* Set file pointer to EOF plus "offset" */
  242. + #endif
  243. + 
  244. + 
  245.   /*
  246.    * The "safe_malloc_fail_handler" vector points to a routine that is invoked
  247.    * if one of the safe_malloc() routines fails.  At startup, this will point
  248.  
  249. Index: hdrs/elm.h
  250. Prereq: 5.9
  251. *** ../elm2.4/hdrs/elm.h    Sat May  8 16:03:17 1993
  252. --- hdrs/elm.h    Tue Aug 10 14:49:33 1993
  253. ***************
  254. *** 1,8 ****
  255.   
  256. ! /* $Id: elm.h,v 5.9 1993/05/08 20:03:12 syd Exp $ */
  257.   
  258.   /*******************************************************************************
  259. !  *  The Elm Mail System  -  $Revision: 5.9 $   $State: Exp $
  260.    *
  261.    *             Copyright (c) 1988-1992 USENET Community Trust
  262.    *             Copyright (c) 1986,1987 Dave Taylor
  263. --- 1,8 ----
  264.   
  265. ! /* $Id: elm.h,v 5.10 1993/08/10 18:49:32 syd Exp $ */
  266.   
  267.   /*******************************************************************************
  268. !  *  The Elm Mail System  -  $Revision: 5.10 $   $State: Exp $
  269.    *
  270.    *             Copyright (c) 1988-1992 USENET Community Trust
  271.    *             Copyright (c) 1986,1987 Dave Taylor
  272. ***************
  273. *** 14,19 ****
  274. --- 14,27 ----
  275.    *
  276.    *******************************************************************************
  277.    * $Log: elm.h,v $
  278. +  * Revision 5.10  1993/08/10  18:49:32  syd
  279. +  * When an environment variable was given as the tmpdir definition the src
  280. +  * and dest overlapped in expand_env.  This made elm produce a garbage
  281. +  * expansion because expand_env cannot cope with overlapping src and
  282. +  * dest.  I added a new variable raw_temp_dir to keep src and dest not to
  283. +  * overlap.
  284. +  * From: Jukka Ukkonen <ukkonen@csc.fi>
  285. +  *
  286.    * Revision 5.9  1993/05/08  20:03:12  syd
  287.    * add sleepmsg to list
  288.    *
  289. ***************
  290. *** 115,120 ****
  291. --- 123,129 ----
  292.   char cur_tempfolder[SLEN] = {0};/* name of temp folder open for a mailbox */
  293.   char defaultfile[SLEN] = {0};    /* name of default folder */
  294.   char temp_dir[SLEN] = {0};      /* name of temp directory */
  295. + char raw_temp_dir[SLEN] = {0};  /* unexpanded name of temp directory */
  296.   char hostname[SLEN] = {0};    /* name of machine we're on*/
  297.   char hostdomain[SLEN] = {0};    /* name of domain we're in */
  298.   char hostfullname[SLEN] = {0};    /* name of FQDN we're in */
  299.  
  300. Index: hdrs/filter.h
  301. Prereq: 5.10
  302. *** ../elm2.4/hdrs/filter.h    Sun Jun  6 14:24:47 1993
  303. --- hdrs/filter.h    Tue Aug  3 15:28:44 1993
  304. ***************
  305. *** 1,8 ****
  306.   
  307. ! /* $Id: filter.h,v 5.10 1993/06/06 17:34:40 syd Exp $ */
  308.   
  309.   /*******************************************************************************
  310. !  *  The Elm Mail System  -  $Revision: 5.10 $   $State: Exp $
  311.    *
  312.    *             Copyright (c) 1988-1992 USENET Community Trust
  313.    *             Copyright (c) 1986,1987 Dave Taylor
  314. --- 1,8 ----
  315.   
  316. ! /* $Id: filter.h,v 5.11 1993/08/03 19:28:39 syd Exp $ */
  317.   
  318.   /*******************************************************************************
  319. !  *  The Elm Mail System  -  $Revision: 5.11 $   $State: Exp $
  320.    *
  321.    *             Copyright (c) 1988-1992 USENET Community Trust
  322.    *             Copyright (c) 1986,1987 Dave Taylor
  323. ***************
  324. *** 14,19 ****
  325. --- 14,31 ----
  326.    *
  327.    *******************************************************************************
  328.    * $Log: filter.h,v $
  329. +  * Revision 5.11  1993/08/03  19:28:39  syd
  330. +  * Elm tries to replace the system toupper() and tolower() on current
  331. +  * BSD systems, which is unnecessary.  Even worse, the replacements
  332. +  * collide during linking with routines in isctype.o.  This patch adds
  333. +  * a Configure test to determine whether replacements are really needed
  334. +  * (BROKE_CTYPE definition).  The <ctype.h> header file is now included
  335. +  * globally through hdrs/defs.h and the BROKE_CTYPE patchup is handled
  336. +  * there.  Inclusion of <ctype.h> was removed from *all* the individual
  337. +  * files, and the toupper() and tolower() routines in lib/opt_utils.c
  338. +  * were dropped.
  339. +  * From: chip@chinacat.unicom.com (Chip Rosenthal)
  340. +  *
  341.    * Revision 5.10  1993/06/06  17:34:40  syd
  342.    * remove useless _vbuf definition
  343.    *
  344. ***************
  345. *** 68,77 ****
  346.   
  347.   #include "regexp.h"
  348.   
  349. - #ifdef   BSD
  350. - # undef  tolower
  351. - #endif
  352. - 
  353.   /** define a few handy macros for later use... **/
  354.   
  355.   #define  the_same(a,b)    (strncmp(a,b,strlen(b)) == 0)
  356. --- 80,85 ----
  357.  
  358. Index: hdrs/headers.h
  359. Prereq: 5.10
  360. *** ../elm2.4/hdrs/headers.h    Sat May  8 16:03:18 1993
  361. --- hdrs/headers.h    Tue Aug 10 16:49:55 1993
  362. ***************
  363. *** 1,8 ****
  364.   
  365. ! /* $Id: headers.h,v 5.10 1993/05/08 20:03:12 syd Exp $ */
  366.   
  367.   /*******************************************************************************
  368. !  *  The Elm Mail System  -  $Revision: 5.10 $   $State: Exp $
  369.    *
  370.    *             Copyright (c) 1988-1992 USENET Community Trust
  371.    *             Copyright (c) 1986,1987 Dave Taylor
  372. --- 1,8 ----
  373.   
  374. ! /* $Id: headers.h,v 5.11 1993/08/10 20:49:40 syd Exp $ */
  375.   
  376.   /*******************************************************************************
  377. !  *  The Elm Mail System  -  $Revision: 5.11 $   $State: Exp $
  378.    *
  379.    *             Copyright (c) 1988-1992 USENET Community Trust
  380.    *             Copyright (c) 1986,1987 Dave Taylor
  381. ***************
  382. *** 14,19 ****
  383. --- 14,22 ----
  384.    *
  385.    *******************************************************************************
  386.    * $Log: headers.h,v $
  387. +  * Revision 5.11  1993/08/10  20:49:40  syd
  388. +  * Add raw_temp_dir
  389. +  *
  390.    * Revision 5.10  1993/05/08  20:03:12  syd
  391.    * add sleepmsg to list
  392.    *
  393. ***************
  394. *** 115,120 ****
  395. --- 118,124 ----
  396.   extern char cur_tempfolder[SLEN]; /* name of temp folder open for a mailbox */
  397.   extern char defaultfile[SLEN];    /* name of default folder */
  398.   extern char temp_dir[SLEN];     /* name of temp directory */
  399. + extern char raw_temp_dir[SLEN]; /* unexpanded name of temp directory */
  400.   extern char hostname[SLEN];    /* name of machine we're on*/
  401.   extern char hostdomain[SLEN];    /* name of domain we're in */
  402.   extern char hostfullname[SLEN]; /* name of FQDN we're in */
  403.  
  404. Index: hdrs/mcprt.h
  405. *** ../elm2.4/hdrs/mcprt.h    Sat Oct  3 18:35:08 1992
  406. --- hdrs/mcprt.h    Sun Aug 22 22:46:28 1993
  407. ***************
  408. *** 48,56 ****
  409. --- 48,62 ----
  410.   #include <stdio.h>
  411.   
  412.   #ifdef USENLS
  413. + #  ifdef I_STDARG
  414. + extern int         MCprintf(char *fmt, ...);
  415. + extern int         MCfprintf(FILE *fptr, char *fmt, ...);
  416. + extern int         MCsprintf(char *cptr, char *fmt, ...);
  417. + #  else
  418.   extern int         MCprintf();
  419.   extern int         MCfprintf();
  420.   extern int         MCsprintf();
  421. + #  endif
  422.   #endif
  423.   
  424.   #endif
  425.  
  426. Index: hdrs/mcprtlib.h
  427. *** ../elm2.4/hdrs/mcprtlib.h    Sat Oct  3 18:35:09 1992
  428. --- hdrs/mcprtlib.h    Sun Aug 22 22:48:18 1993
  429. ***************
  430. *** 41,47 ****
  431.   03/20/91   2 schulert    Ultrix cc has trouble with void*, so change them to int*
  432.   01/18/91   3 hamilton    #if not rescanned
  433.   01/12/91   1 schulert    conditionally use prototypes
  434. !             rework to use either varargs or stdargs
  435.   11/03/90   2 hamilton    Alphalpha->Alfalfa & OmegaMail->Poste
  436.   08/10/90   1 nazgul    Initial version
  437.   */
  438. --- 41,47 ----
  439.   03/20/91   2 schulert    Ultrix cc has trouble with void*, so change them to int*
  440.   01/18/91   3 hamilton    #if not rescanned
  441.   01/12/91   1 schulert    conditionally use prototypes
  442. !             rework to use either varargs or stdarg
  443.   11/03/90   2 hamilton    Alphalpha->Alfalfa & OmegaMail->Poste
  444.   08/10/90   1 nazgul    Initial version
  445.   */
  446. ***************
  447. *** 49,56 ****
  448. --- 49,61 ----
  449.   /* taken from Xm/lib/VaSimple.h
  450.      currently no one defines MISSING_STDARG_H */
  451.    
  452. + #ifdef    I_STDARG
  453. + # include <stdarg.h>
  454. + # define Va_start(a,b) va_start(a,b)
  455. + #else
  456.   # include <varargs.h>
  457.   # define Va_start(a,b) va_start(a)
  458. + #endif
  459.   
  460.   #define MCFree        0x0010            /* Reminder to MCPrintFree */
  461.   #define MCCatalog    0x0100            /* Probably came from catalog */
  462.  
  463. Index: hdrs/ndbz.h
  464. Prereq: 5.2
  465. *** ../elm2.4/hdrs/ndbz.h    Sat Oct 10 21:47:09 1992
  466. --- hdrs/ndbz.h    Mon Jul 19 22:59:54 1993
  467. ***************
  468. *** 1,8 ****
  469.   
  470. ! /* $Id: ndbz.h,v 5.2 1992/10/11 01:46:35 syd Exp $ */
  471.   
  472.   /*******************************************************************************
  473. !  *  The Elm Mail System  -  $Revision: 5.2 $   $State: Exp $
  474.    *
  475.    *             Copyright (c) 1988-1992 USENET Community Trust
  476.    *             Copyright (c) 1986,1987 Dave Taylor
  477. --- 1,8 ----
  478.   
  479. ! /* $Id: ndbz.h,v 5.3 1993/07/20 02:59:53 syd Exp $ */
  480.   
  481.   /*******************************************************************************
  482. !  *  The Elm Mail System  -  $Revision: 5.3 $   $State: Exp $
  483.    *
  484.    *             Copyright (c) 1988-1992 USENET Community Trust
  485.    *             Copyright (c) 1986,1987 Dave Taylor
  486. ***************
  487. *** 14,19 ****
  488. --- 14,23 ----
  489.    *
  490.    *******************************************************************************
  491.    * $Log: ndbz.h,v $
  492. +  * Revision 5.3  1993/07/20  02:59:53  syd
  493. +  * Support aliases both on 64 bit and 32 bit machines at the same time.
  494. +  * From: Dan Mosedale <mosedale@genome.stanford.edu>
  495. +  *
  496.    * Revision 5.2  1992/10/11  01:46:35  syd
  497.    * change dbm name to dbz to avoid conflicts with partial call
  498.    * ins from shared librarys, and from mixing code with yp code.
  499. ***************
  500. *** 57,63 ****
  501.    * to have a distinctive name for it.  Beware, this is just for readability,
  502.    * don't try to change this.
  503.    */
  504. ! #define    of_t    long
  505.   #define    SOF    (sizeof(of_t))
  506.   
  507.   /*
  508. --- 61,73 ----
  509.    * to have a distinctive name for it.  Beware, this is just for readability,
  510.    * don't try to change this.
  511.    */
  512. ! 
  513. ! /*
  514. !  * Big kludge: this is set up as 32-bit rather than a long so that ndbz db's 
  515. !  * will work across NFS on 64 bit machines as well as 32 bit machines.
  516. !  */
  517. ! 
  518. ! #define    of_t    int32
  519.   #define    SOF    (sizeof(of_t))
  520.   
  521.   /*
  522.  
  523. Index: hdrs/s_elm.h
  524. *** ../elm2.4/hdrs/s_elm.h    Mon May 31 15:35:18 1993
  525. --- hdrs/s_elm.h    Tue Aug  3 14:58:35 1993
  526. ***************
  527. *** 1,4 ****
  528. ! /* s_elm.h created from s_elm.us by gencat on Mon May 31 15:35:18 EDT 1993 */
  529.   
  530.   #define ElmSet    0x3
  531.   #define ElmYes    0x1
  532. --- 1,4 ----
  533. ! /* s_elm.h created from s_elm.us by gencat on Tue Aug  3 14:58:35 EDT 1993 */
  534.   
  535.   #define ElmSet    0x3
  536.   #define ElmYes    0x1
  537. ***************
  538. *** 499,505 ****
  539.   #define ElmTooManyWeedHeaders    0x233
  540.   #define ElmTooManyWeedPmalloc    0x234
  541.   #define ElmNoMemDefaultWeed    0x235
  542. ! #define ElmCantExpandEnvVar    0x236
  543.   #define ElmCouldntMakeTempFileName    0x237
  544.   #define ElmCouldntOpenForWriting    0x238
  545.   #define ElmSureYouWantToRemail    0x239
  546. --- 499,505 ----
  547.   #define ElmTooManyWeedHeaders    0x233
  548.   #define ElmTooManyWeedPmalloc    0x234
  549.   #define ElmNoMemDefaultWeed    0x235
  550. ! #define ElmCannotInitErrorExpanding    0x236
  551.   #define ElmCouldntMakeTempFileName    0x237
  552.   #define ElmCouldntOpenForWriting    0x238
  553.   #define ElmSureYouWantToRemail    0x239
  554.  
  555. Index: hdrs/save_opts.h
  556. Prereq: 5.8
  557. *** ../elm2.4/hdrs/save_opts.h    Sat May  8 16:02:01 1993
  558. --- hdrs/save_opts.h    Tue Aug 10 14:49:32 1993
  559. ***************
  560. *** 1,8 ****
  561.   
  562. ! /* @(#)$Id: save_opts.h,v 5.8 1993/05/08 18:56:16 syd Exp syd $ */
  563.   
  564.   /*******************************************************************************
  565. !  *  The Elm Mail System  -  $Revision: 5.8 $   $State: Exp $
  566.    *
  567.    *             Copyright (c) 1988-1992 USENET Community Trust
  568.    *             Copyright (c) 1986,1987 Dave Taylor
  569. --- 1,8 ----
  570.   
  571. ! /* @(#)$Id: save_opts.h,v 5.10 1993/08/10 18:49:32 syd Exp $ */
  572.   
  573.   /*******************************************************************************
  574. !  *  The Elm Mail System  -  $Revision: 5.10 $   $State: Exp $
  575.    *
  576.    *             Copyright (c) 1988-1992 USENET Community Trust
  577.    *             Copyright (c) 1986,1987 Dave Taylor
  578. ***************
  579. *** 14,19 ****
  580. --- 14,30 ----
  581.    *
  582.    *******************************************************************************
  583.    * $Log: save_opts.h,v $
  584. +  * Revision 5.10  1993/08/10  18:49:32  syd
  585. +  * When an environment variable was given as the tmpdir definition the src
  586. +  * and dest overlapped in expand_env.  This made elm produce a garbage
  587. +  * expansion because expand_env cannot cope with overlapping src and
  588. +  * dest.  I added a new variable raw_temp_dir to keep src and dest not to
  589. +  * overlap.
  590. +  * From: Jukka Ukkonen <ukkonen@csc.fi>
  591. +  *
  592. +  * Revision 5.9  1993/06/12  05:28:06  syd
  593. +  * Missing checkin
  594. +  *
  595.    * Revision 5.8  1993/05/08  18:56:16  syd
  596.    * created a new elmrc variable named "readmsginc".  This specifies an
  597.    * increment by which the message count is updated.  If this variable is
  598. ***************
  599. *** 230,236 ****
  600.   #endif
  601.   {"timeout",        -1L,DT_NUM,(char *)&timeout},
  602.   {"titles",        -1L,DT_BOL,(char *)&title_messages},
  603. ! {"tmpdir",        -1L,DT_STR,temp_dir},
  604.   {"userlevel",        -1L,DT_NUM,(char *)&user_level},
  605.   {"username",        -1L,DT_SYN,"fullname"},
  606.   {"usetite",        -1L,DT_BOL|FL_AND,(char *)&use_tite},
  607. --- 241,247 ----
  608.   #endif
  609.   {"timeout",        -1L,DT_NUM,(char *)&timeout},
  610.   {"titles",        -1L,DT_BOL,(char *)&title_messages},
  611. ! {"tmpdir",        -1L,DT_STR,raw_temp_dir},
  612.   {"userlevel",        -1L,DT_NUM,(char *)&user_level},
  613.   {"username",        -1L,DT_SYN,"fullname"},
  614.   {"usetite",        -1L,DT_BOL|FL_AND,(char *)&use_tite},
  615.  
  616. Index: lib/Makefile.SH
  617. Prereq: 5.11
  618. *** ../elm2.4/lib/Makefile.SH    Sun Apr 11 21:51:43 1993
  619. --- lib/Makefile.SH    Tue Aug  3 15:28:46 1993
  620. ***************
  621. *** 36,42 ****
  622.   
  623.   echo "Extracting lib/Makefile (with variable substitutions)"
  624.   cat >Makefile <<!GROK!THIS!
  625. ! # $Id: Makefile.SH,v 5.11 1993/04/12 01:51:42 syd Exp $
  626.   #
  627.   #  Makefile for the ELM mail program.
  628.   #
  629. --- 36,42 ----
  630.   
  631.   echo "Extracting lib/Makefile (with variable substitutions)"
  632.   cat >Makefile <<!GROK!THIS!
  633. ! # $Id: Makefile.SH,v 5.15 1993/08/03 19:28:39 syd Exp $
  634.   #
  635.   #  Makefile for the ELM mail program.
  636.   #
  637. ***************
  638. *** 49,54 ****
  639. --- 49,88 ----
  640.   #            dsinc!elm
  641.   #
  642.   # $Log: Makefile.SH,v $
  643. + # Revision 5.15  1993/08/03  19:28:39  syd
  644. + # Elm tries to replace the system toupper() and tolower() on current
  645. + # BSD systems, which is unnecessary.  Even worse, the replacements
  646. + # collide during linking with routines in isctype.o.  This patch adds
  647. + # a Configure test to determine whether replacements are really needed
  648. + # (BROKE_CTYPE definition).  The <ctype.h> header file is now included
  649. + # globally through hdrs/defs.h and the BROKE_CTYPE patchup is handled
  650. + # there.  Inclusion of <ctype.h> was removed from *all* the individual
  651. + # files, and the toupper() and tolower() routines in lib/opt_utils.c
  652. + # were dropped.
  653. + # From: chip@chinacat.unicom.com (Chip Rosenthal)
  654. + #
  655. + # Revision 5.14  1993/08/03  19:17:33  syd
  656. + # Implement new timezone handling.  New file lib/get_tz.c with new timezone
  657. + # routines.  Added new TZMINS_USE_xxxxxx and TZNAME_USE_xxxxxx configuration
  658. + # definitions.  Obsoleted TZNAME, ALTCHECK, and TZ_MINUTESWEST configuration
  659. + # definitions.  Updated Configure.  Modified lib/getarpdate.c and
  660. + # lib/strftime.c to use new timezone routines.
  661. + #
  662. + # From: chip@chinacat.unicom.com (Chip Rosenthal)
  663. + #
  664. + # Revision 5.13  1993/08/02  18:14:35  syd
  665. + # add missing references for mcprt.c/mcprtlib.c to defs.h
  666. + # From: Syd
  667. + #
  668. + # Revision 5.12  1993/06/10  03:02:46  syd
  669. + # break_down_tolist() tried to blindly split address lists at "," which
  670. + # caused bogus results with addreses that had a comma inside a comment
  671. + # or quoted text, such as "user@domain (Last, First)".  This patch steps
  672. + # through the address in quanta of RFC-822 tokens when searching for a
  673. + # delimiting comma.  It also adds "rfc822_toklen()" to the library to
  674. + # get that length.
  675. + # From: chip@chinacat.unicom.com (Chip Rosenthal)
  676. + #
  677.   # Revision 5.11  1993/04/12  01:51:42  syd
  678.   # Added safe_malloc(), safe_realloc(), and safe_strdup().  They
  679.   # will be used in the new elmalias utility.
  680. ***************
  681. *** 162,167 ****
  682. --- 196,202 ----
  683.               getarpdate.c    \
  684.               getfullnam.c    \
  685.               getword.c    \
  686. +             get_tz.c    \
  687.               header_cmp.c    \
  688.               in_list.c    \
  689.               in_string.c    \
  690. ***************
  691. *** 182,187 ****
  692. --- 217,223 ----
  693.               qstrings.c    \
  694.               remfirstwd.c    \
  695.               reverse.c    \
  696. +             rfc822tlen.c    \
  697.               safemalloc.c    \
  698.               shiftlower.c    \
  699.               strfcpy.c    \
  700. ***************
  701. *** 207,212 ****
  702. --- 243,249 ----
  703.               expand.o    \
  704.               figadrssee.o    \
  705.               gcos_name.o    \
  706. +             get_tz.o    \
  707.               getaddrfrm.o    \
  708.               getarpdate.o    \
  709.               getfullnam.o    \
  710. ***************
  711. *** 231,236 ****
  712. --- 268,274 ----
  713.               realfrom.o    \
  714.               remfirstwd.o    \
  715.               reverse.o    \
  716. +             rfc822tlen.o    \
  717.               safemalloc.o    \
  718.               shiftlower.o    \
  719.               strfcpy.o    \
  720. ***************
  721. *** 280,285 ****
  722. --- 318,324 ----
  723.   #    Dependencies of C object files
  724.   add_site.o:    $(INCLDIR)/headers.h
  725.   addrmchusr.o:    $(INCLDIR)/headers.h
  726. + atonum.o:    $(INCLDIR)/defs.h
  727.   mk_aliases.o:    $(INCLDIR)/headers.h $(INCLDIR)/ndbz.h $(INCLDIR)/s_newalias.h
  728.   aliasdb.o:    $(INCLDIR)/headers.h $(INCLDIR)/ndbz.h
  729.   mk_lockname.o:    $(INCLDIR)/headers.h
  730. ***************
  731. *** 291,296 ****
  732. --- 330,336 ----
  733.   expand.o:    $(INCLDIR)/defs.h $(INCLDIR)/s_elmrc.h
  734.   figadrssee.o:    $(INCLDIR)/headers.h
  735.   gcos_name.o:    $(INCLDIR)/headers.h
  736. + get_tz.o:    $(INCLDIR)/defs.h
  737.   getaddrfrm.o:    $(INCLDIR)/headers.h
  738.   getarpdate.o:    $(INCLDIR)/headers.h
  739.   getfullnam.o:    $(INCLDIR)/headers.h
  740. ***************
  741. *** 302,309 ****
  742.   ldstate.o:    $(INCLDIR)/defs.h
  743.   len_next.o:    ../config.h
  744.   mail_gets.o:    ../config.h
  745. ! mcprt.o:    $(INCLDIR)/mcprt.h $(INCLDIR)/mcprtlib.h
  746. ! mcprtlib.o:    $(INCLDIR)/mcprtlib.h $(INCLDIR)/nl_types.h
  747.   move_left.o:    $(INCLDIR)/headers.h
  748.   msgcat.o:    $(INCLDIR)/msgcat.h $(INCLDIR)/nl_types.h
  749.   ndbz.o:        $(INCLDIR)/headers.h $(INCLDIR)/ndbz.h
  750. --- 342,349 ----
  751.   ldstate.o:    $(INCLDIR)/defs.h
  752.   len_next.o:    ../config.h
  753.   mail_gets.o:    ../config.h
  754. ! mcprt.o:    $(INCLDIR)/mcprt.h $(INCLDIR)/mcprtlib.h $(INCLDIR)/defs.h
  755. ! mcprtlib.o:    $(INCLDIR)/mcprtlib.h $(INCLDIR)/nl_types.h $(INCLDIR)/defs.h
  756.   move_left.o:    $(INCLDIR)/headers.h
  757.   msgcat.o:    $(INCLDIR)/msgcat.h $(INCLDIR)/nl_types.h
  758.   ndbz.o:        $(INCLDIR)/headers.h $(INCLDIR)/ndbz.h
  759.  
  760. Index: lib/aliasdb.c
  761. Prereq: 5.3
  762. *** ../elm2.4/lib/aliasdb.c    Tue Apr 20 21:40:16 1993
  763. --- lib/aliasdb.c    Sun Sep 19 19:41:00 1993
  764. ***************
  765. *** 1,5 ****
  766.   /*******************************************************************************
  767. !  *  The Elm Mail System  -  $Revision: 5.3 $   $State: Exp $
  768.    *
  769.    *            Copyright (c) 1988-1992 USENET Community Trust
  770.    *            Copyright (c) 1986,1987 Dave Taylor
  771. --- 1,8 ----
  772. + 
  773. + static char rcsid[] = "@(#)$Id: aliasdb.c,v 5.8 1993/09/19 23:40:48 syd Exp $";
  774. + 
  775.   /*******************************************************************************
  776. !  *  The Elm Mail System  -  $Revision: 5.8 $   $State: Exp $
  777.    *
  778.    *            Copyright (c) 1988-1992 USENET Community Trust
  779.    *            Copyright (c) 1986,1987 Dave Taylor
  780. ***************
  781. *** 11,16 ****
  782. --- 14,50 ----
  783.    *
  784.    *******************************************************************************
  785.    * $Log: aliasdb.c,v $
  786. +  * Revision 5.8  1993/09/19  23:40:48  syd
  787. +  * Defince SEEK_SET in one of our headers as a last resort
  788. +  * From: Syd
  789. +  *
  790. +  * Revision 5.7  1993/08/03  19:28:39  syd
  791. +  * Elm tries to replace the system toupper() and tolower() on current
  792. +  * BSD systems, which is unnecessary.  Even worse, the replacements
  793. +  * collide during linking with routines in isctype.o.  This patch adds
  794. +  * a Configure test to determine whether replacements are really needed
  795. +  * (BROKE_CTYPE definition).  The <ctype.h> header file is now included
  796. +  * globally through hdrs/defs.h and the BROKE_CTYPE patchup is handled
  797. +  * there.  Inclusion of <ctype.h> was removed from *all* the individual
  798. +  * files, and the toupper() and tolower() routines in lib/opt_utils.c
  799. +  * were dropped.
  800. +  * From: chip@chinacat.unicom.com (Chip Rosenthal)
  801. +  *
  802. +  * Revision 5.6  1993/07/20  02:59:53  syd
  803. +  * Support aliases both on 64 bit and 32 bit machines at the same time.
  804. +  * From: Dan Mosedale <mosedale@genome.stanford.edu>
  805. +  *
  806. +  * Revision 5.5  1993/06/10  03:12:10  syd
  807. +  * Add missing rcs id lines
  808. +  * From: Syd
  809. +  *
  810. +  * Revision 5.4  1993/06/10  02:58:26  syd
  811. +  * Correct problem in fetch_alias() with alias record fixup that caused
  812. +  * core dump on machines with pointers larger than int.  This problem
  813. +  * was reported on comp.mail.elm by Richard Eckman and Jim Brown.  Simplify
  814. +  * get_one_alias() by having it use fetch_alias().
  815. +  * From: chip@chinacat.unicom.com (Chip Rosenthal)
  816. +  *
  817.    * Revision 5.3  1993/04/21  01:40:12  syd
  818.    * add seekset define
  819.    *
  820. ***************
  821. *** 35,53 ****
  822.   **/
  823.   
  824.   #include "headers.h"
  825. - #include <ctype.h>
  826.   #include "ndbz.h"
  827.   
  828. - #ifndef SEEK_SET
  829. - #define    SEEK_SET    0    /* Set file pointer to "offset" */
  830. - #define    SEEK_CUR    1    /* Set file pointer to current plus "offset" */
  831. - #define    SEEK_END    2    /* Set file pointer to EOF plus "offset" */
  832. - #endif
  833. - 
  834.   #ifdef BSD
  835.   #  include <sys/file.h>
  836. - #  undef tolower
  837. - #  undef toupper
  838.   #endif
  839.   
  840.   /* byte-ordering stuff */
  841. --- 69,78 ----
  842. ***************
  843. *** 74,82 ****
  844.       return(out.o);
  845.   }
  846.   
  847. ! read_one_alias(db, ar)
  848.   DBZ *db;
  849. ! struct alias_rec *ar;
  850.   {
  851.   /*
  852.    *    Read an alias (name, address, etc.) from the data file
  853. --- 99,107 ----
  854.       return(out.o);
  855.   }
  856.   
  857. ! read_one_alias(db, adr)
  858.   DBZ *db;
  859. ! struct alias_disk_rec *adr;
  860.   {
  861.   /*
  862.    *    Read an alias (name, address, etc.) from the data file
  863. ***************
  864. *** 87,104 ****
  865.       if (data_file == NULL)
  866.           return(0);    /* no alias file, but hash exists, error condition */
  867.   
  868. !     if (fread((char *) ar, sizeof(struct alias_rec), 1, data_file) <= 0)
  869. !         return(0);
  870.   
  871. -     ar->status = (int) MAPIN(ar->status);
  872. -     ar->alias = (char *) MAPIN(ar->alias);
  873. -     ar->last_name = (char *) MAPIN(ar->last_name);
  874. -     ar->name = (char *) MAPIN(ar->name);
  875. -     ar->comment = (char *) MAPIN(ar->comment);
  876. -     ar->address = (char *) MAPIN(ar->address);
  877. -     ar->type = (int) MAPIN(ar->type);
  878. -     ar->length = (long) MAPIN(ar->length);
  879. - 
  880.       return(1);
  881.   }
  882.   
  883. --- 112,130 ----
  884.       if (data_file == NULL)
  885.           return(0);    /* no alias file, but hash exists, error condition */
  886.   
  887. !     if (fread((char *) adr, sizeof(struct alias_disk_rec), 1, data_file)
  888. !         <= 0)
  889. !         return(0);
  890. ! 
  891. !     adr->status = (int32) MAPIN(adr->status);
  892. !     adr->alias = (int32) MAPIN(adr->alias);
  893. !     adr->last_name = (int32) MAPIN(adr->last_name);
  894. !     adr->name = (int32) MAPIN(adr->name);
  895. !     adr->comment = (int32) MAPIN(adr->comment);
  896. !     adr->address = (int32) MAPIN(adr->address);
  897. !     adr->type = (int32) MAPIN(adr->type);
  898. !     adr->length = (int32) MAPIN(adr->length);
  899.   
  900.       return(1);
  901.   }
  902.   
  903. ***************
  904. *** 122,128 ****
  905.   char *alias;
  906.   {
  907.       datum key, val;
  908. !     struct alias_rec arec;
  909.       long pos;
  910.       register struct alias_rec *ar;
  911.       register char *buf, *s;
  912. --- 148,154 ----
  913.   char *alias;
  914.   {
  915.       datum key, val;
  916. !     struct alias_disk_rec adrec;
  917.       long pos;
  918.       register struct alias_rec *ar;
  919.       register char *buf, *s;
  920. ***************
  921. *** 159,194 ****
  922.           /*
  923.            * Move to the position of the selected alias record.
  924.            */
  925. !         pos = *((long *)(val.dptr)) - sizeof(struct alias_rec);
  926.           if (fseek(db->dbz_basef, pos, SEEK_SET) != 0)
  927.               return (struct alias_rec *)NULL;
  928.   
  929.       }
  930.   
  931.       /*
  932.        * We are now positioned at the alias record we want.  Pull it in.
  933.        */
  934. !     if (!read_one_alias(db, &arec))
  935.           return (struct alias_rec *)NULL;
  936.   
  937.       /*
  938.        * Allocate space to hold the alias record and data content.
  939.        */
  940.       ar = (struct alias_rec *)
  941. !         safe_malloc(sizeof(struct alias_rec) + arec.length);
  942. !     *ar = arec;
  943.       buf = (char *)ar + sizeof(struct alias_rec);
  944.   
  945.       /*
  946. !      * Read in the data content and fixup pointers in the alias record.
  947.        */
  948.       if (fread(buf, ar->length, 1, db->dbz_basef) != 1)
  949.           return (struct alias_rec *)NULL;
  950. -     ar->alias += (int) buf;
  951. -     ar->last_name += (int) buf;
  952. -     ar->name += (int) buf;
  953. -     ar->comment += (int) buf;
  954. -     ar->address += (int) buf;
  955.   
  956.       return ar;
  957.   }
  958. --- 185,239 ----
  959.           /*
  960.            * Move to the position of the selected alias record.
  961.            */
  962. !         pos = *((long *)(val.dptr)) - sizeof(struct alias_disk_rec);
  963.           if (fseek(db->dbz_basef, pos, SEEK_SET) != 0)
  964.               return (struct alias_rec *)NULL;
  965.   
  966.       }
  967.   
  968.       /*
  969. +      * Each alias in the data file is stored as a (struct alias_rec)
  970. +      * followed by text information for that alias record.  The
  971. +      * size of the following text information is specified by `length',
  972. +      * and the value of the other members of the structure are actually
  973. +      * offsets into that buffer space.  So, to load in an alias we
  974. +      * need to:  (1) read the alias record, (2) see how long the data
  975. +      * buffer is and pull it in, and (3) fixup the pointers in the
  976. +      * alias record so they point into the data buffer.
  977. +      */
  978. + 
  979. +     /*
  980.        * We are now positioned at the alias record we want.  Pull it in.
  981.        */
  982. !     if (!read_one_alias(db, &adrec))
  983.           return (struct alias_rec *)NULL;
  984.   
  985.       /*
  986.        * Allocate space to hold the alias record and data content.
  987.        */
  988. + 
  989.       ar = (struct alias_rec *)
  990. !         safe_malloc(sizeof(struct alias_rec) + (size_t)adrec.length);
  991. ! 
  992.       buf = (char *)ar + sizeof(struct alias_rec);
  993.   
  994. +         /* 
  995. +      * Fixup pointers in the alias record.
  996. +      */
  997. +     ar->status = (int)adrec.status;
  998. +     ar->alias = (char *) ((size_t) adrec.alias + (size_t) buf);
  999. +     ar->last_name = (char *) ((size_t) adrec.last_name + (size_t) buf);
  1000. +     ar->name = (char *) ((size_t) adrec.name + (size_t) buf);
  1001. +     ar->comment = (char *) ((size_t) adrec.comment + (size_t) buf);
  1002. +     ar->address = (char *) ((size_t) adrec.address + (size_t) buf);
  1003. +     ar->type = (int)adrec.type;
  1004. +     ar->length = (size_t)adrec.length;
  1005. + 
  1006.       /*
  1007. !      * Read in the data content 
  1008.        */
  1009.       if (fread(buf, ar->length, 1, db->dbz_basef) != 1)
  1010.           return (struct alias_rec *)NULL;
  1011.   
  1012.       return ar;
  1013.   }
  1014.  
  1015. Index: lib/atonum.c
  1016. Prereq: 5.1
  1017. *** ../elm2.4/lib/atonum.c    Mon Jan 18 23:46:39 1993
  1018. --- lib/atonum.c    Tue Aug  3 15:28:47 1993
  1019. ***************
  1020. *** 1,8 ****
  1021.   
  1022. ! static char rcsid[] = "@(#)$Id: atonum.c,v 5.1 1993/01/19 04:46:21 syd Exp $";
  1023.   
  1024.   /*******************************************************************************
  1025. !  *  The Elm Mail System  -  $Revision: 5.1 $   $State: Exp $
  1026.    *
  1027.    *             Copyright (c) 1993 USENET Community Trust
  1028.    *******************************************************************************
  1029. --- 1,8 ----
  1030.   
  1031. ! static char rcsid[] = "@(#)$Id: atonum.c,v 5.2 1993/08/03 19:28:39 syd Exp $";
  1032.   
  1033.   /*******************************************************************************
  1034. !  *  The Elm Mail System  -  $Revision: 5.2 $   $State: Exp $
  1035.    *
  1036.    *             Copyright (c) 1993 USENET Community Trust
  1037.    *******************************************************************************
  1038. ***************
  1039. *** 13,25 ****
  1040.    *
  1041.    *******************************************************************************
  1042.    * $Log: atonum.c,v $
  1043.    * Revision 5.1  1993/01/19  04:46:21  syd
  1044.    * Initial Checkin
  1045.    *
  1046.    *
  1047.    ******************************************************************************/
  1048.   
  1049. ! #include <ctype.h>
  1050.   
  1051.   /*
  1052.    * This is similar to atoi(), but it complains if the string
  1053. --- 13,37 ----
  1054.    *
  1055.    *******************************************************************************
  1056.    * $Log: atonum.c,v $
  1057. +  * Revision 5.2  1993/08/03  19:28:39  syd
  1058. +  * Elm tries to replace the system toupper() and tolower() on current
  1059. +  * BSD systems, which is unnecessary.  Even worse, the replacements
  1060. +  * collide during linking with routines in isctype.o.  This patch adds
  1061. +  * a Configure test to determine whether replacements are really needed
  1062. +  * (BROKE_CTYPE definition).  The <ctype.h> header file is now included
  1063. +  * globally through hdrs/defs.h and the BROKE_CTYPE patchup is handled
  1064. +  * there.  Inclusion of <ctype.h> was removed from *all* the individual
  1065. +  * files, and the toupper() and tolower() routines in lib/opt_utils.c
  1066. +  * were dropped.
  1067. +  * From: chip@chinacat.unicom.com (Chip Rosenthal)
  1068. +  *
  1069.    * Revision 5.1  1993/01/19  04:46:21  syd
  1070.    * Initial Checkin
  1071.    *
  1072.    *
  1073.    ******************************************************************************/
  1074.   
  1075. ! #include "defs.h"
  1076.   
  1077.   /*
  1078.    * This is similar to atoi(), but it complains if the string
  1079.  
  1080. Index: lib/can_access.c
  1081. Prereq: 5.6
  1082. *** ../elm2.4/lib/can_access.c    Thu May 13 23:52:11 1993
  1083. --- lib/can_access.c    Sun Aug 22 22:46:07 1993
  1084. ***************
  1085. *** 1,8 ****
  1086.   
  1087. ! static char rcsid[] = "@(#)$Id: can_access.c,v 5.6 1993/05/14 03:52:10 syd Exp $";
  1088.   
  1089.   /*******************************************************************************
  1090. !  *  The Elm Mail System  -  $Revision: 5.6 $   $State: Exp $
  1091.    *
  1092.    *            Copyright (c) 1988-1992 USENET Community Trust
  1093.    *            Copyright (c) 1986,1987 Dave Taylor
  1094. --- 1,8 ----
  1095.   
  1096. ! static char rcsid[] = "@(#)$Id: can_access.c,v 5.8 1993/08/23 02:46:07 syd Exp $";
  1097.   
  1098.   /*******************************************************************************
  1099. !  *  The Elm Mail System  -  $Revision: 5.8 $   $State: Exp $
  1100.    *
  1101.    *            Copyright (c) 1988-1992 USENET Community Trust
  1102.    *            Copyright (c) 1986,1987 Dave Taylor
  1103. ***************
  1104. *** 14,19 ****
  1105. --- 14,35 ----
  1106.    *
  1107.    *******************************************************************************
  1108.    * $Log: can_access.c,v $
  1109. +  * Revision 5.8  1993/08/23  02:46:07  syd
  1110. +  * Don't declare _exit() if <unistd.h> already did it.
  1111. +  * From: decwrl!uunet.UU.NET!fin!chip (Chip Salzenberg)
  1112. +  *
  1113. +  * Revision 5.7  1993/08/03  19:28:39  syd
  1114. +  * Elm tries to replace the system toupper() and tolower() on current
  1115. +  * BSD systems, which is unnecessary.  Even worse, the replacements
  1116. +  * collide during linking with routines in isctype.o.  This patch adds
  1117. +  * a Configure test to determine whether replacements are really needed
  1118. +  * (BROKE_CTYPE definition).  The <ctype.h> header file is now included
  1119. +  * globally through hdrs/defs.h and the BROKE_CTYPE patchup is handled
  1120. +  * there.  Inclusion of <ctype.h> was removed from *all* the individual
  1121. +  * files, and the toupper() and tolower() routines in lib/opt_utils.c
  1122. +  * were dropped.
  1123. +  * From: chip@chinacat.unicom.com (Chip Rosenthal)
  1124. +  *
  1125.    * Revision 5.6  1993/05/14  03:52:10  syd
  1126.    * When compiled on a POSIX host PL22 failed checking whether the file is
  1127.    * readable and a regular file or not. There was one `!' missing in the
  1128. ***************
  1129. *** 48,60 ****
  1130.   
  1131.   #include "headers.h"
  1132.   #include <sys/stat.h>
  1133. - #include <ctype.h>
  1134.   #include <errno.h>
  1135.   
  1136.   #ifdef BSD
  1137.   # include <sys/wait.h>
  1138.   #endif
  1139.   
  1140.   extern int errno;        /* system error number */
  1141.   
  1142.   int
  1143. --- 64,79 ----
  1144.   
  1145.   #include "headers.h"
  1146.   #include <sys/stat.h>
  1147.   #include <errno.h>
  1148.   
  1149.   #ifdef BSD
  1150.   # include <sys/wait.h>
  1151.   #endif
  1152.   
  1153. + #ifndef I_UNISTD
  1154. + void _exit();
  1155. + #endif
  1156. + 
  1157.   extern int errno;        /* system error number */
  1158.   
  1159.   int
  1160. ***************
  1161. *** 66,72 ****
  1162.   
  1163.       int the_stat = 0, pid, w; 
  1164.       struct stat stat_buf;
  1165. -     void _exit();
  1166.   #if defined(BSD) && !defined(WEXITSTATUS)
  1167.       union wait status;
  1168.   #else
  1169. --- 85,90 ----
  1170.  
  1171. Index: lib/can_open.c
  1172. Prereq: 5.2
  1173. *** ../elm2.4/lib/can_open.c    Fri Dec 11 20:29:27 1992
  1174. --- lib/can_open.c    Sun Aug 22 22:46:08 1993
  1175. ***************
  1176. *** 1,8 ****
  1177.   
  1178. ! static char rcsid[] = "@(#)$Id: can_open.c,v 5.2 1992/12/12 01:29:26 syd Exp $";
  1179.   
  1180.   /*******************************************************************************
  1181. !  *  The Elm Mail System  -  $Revision: 5.2 $   $State: Exp $
  1182.    *
  1183.    *            Copyright (c) 1988-1992 USENET Community Trust
  1184.    *            Copyright (c) 1986,1987 Dave Taylor
  1185. --- 1,8 ----
  1186.   
  1187. ! static char rcsid[] = "@(#)$Id: can_open.c,v 5.4 1993/08/23 02:46:07 syd Exp $";
  1188.   
  1189.   /*******************************************************************************
  1190. !  *  The Elm Mail System  -  $Revision: 5.4 $   $State: Exp $
  1191.    *
  1192.    *            Copyright (c) 1988-1992 USENET Community Trust
  1193.    *            Copyright (c) 1986,1987 Dave Taylor
  1194. ***************
  1195. *** 14,19 ****
  1196. --- 14,35 ----
  1197.    *
  1198.    *******************************************************************************
  1199.    * $Log: can_open.c,v $
  1200. +  * Revision 5.4  1993/08/23  02:46:07  syd
  1201. +  * Don't declare _exit() if <unistd.h> already did it.
  1202. +  * From: decwrl!uunet.UU.NET!fin!chip (Chip Salzenberg)
  1203. +  *
  1204. +  * Revision 5.3  1993/08/03  19:28:39  syd
  1205. +  * Elm tries to replace the system toupper() and tolower() on current
  1206. +  * BSD systems, which is unnecessary.  Even worse, the replacements
  1207. +  * collide during linking with routines in isctype.o.  This patch adds
  1208. +  * a Configure test to determine whether replacements are really needed
  1209. +  * (BROKE_CTYPE definition).  The <ctype.h> header file is now included
  1210. +  * globally through hdrs/defs.h and the BROKE_CTYPE patchup is handled
  1211. +  * there.  Inclusion of <ctype.h> was removed from *all* the individual
  1212. +  * files, and the toupper() and tolower() routines in lib/opt_utils.c
  1213. +  * were dropped.
  1214. +  * From: chip@chinacat.unicom.com (Chip Rosenthal)
  1215. +  *
  1216.    * Revision 5.2  1992/12/12  01:29:26  syd
  1217.    * Fix double inclusion of sys/types.h
  1218.    * From: Tom Moore <tmoore@wnas.DaytonOH.NCR.COM>
  1219. ***************
  1220. *** 30,42 ****
  1221.   
  1222.   #include "headers.h"
  1223.   #include <sys/stat.h>
  1224. - #include <ctype.h>
  1225.   #include <errno.h>
  1226.   
  1227.   #ifdef BSD
  1228.   # include <sys/wait.h>
  1229.   #endif
  1230.   
  1231.   extern int errno;        /* system error number */
  1232.   
  1233.   int
  1234. --- 46,61 ----
  1235.   
  1236.   #include "headers.h"
  1237.   #include <sys/stat.h>
  1238.   #include <errno.h>
  1239.   
  1240.   #ifdef BSD
  1241.   # include <sys/wait.h>
  1242.   #endif
  1243.   
  1244. + #ifndef I_UNISTD
  1245. + void _exit();
  1246. + #endif
  1247. + 
  1248.   extern int errno;        /* system error number */
  1249.   
  1250.   int
  1251. ***************
  1252. *** 49,55 ****
  1253.   
  1254.       FILE *fd;
  1255.       int the_stat = 0, pid, w, preexisted = 0; 
  1256. -     void _exit();
  1257.   #if defined(BSD) && !defined(WEXITSTATUS)
  1258.       union wait status;
  1259.   #else
  1260. --- 68,73 ----
  1261.  
  1262. Index: lib/date_util.c
  1263. Prereq: 5.2
  1264. *** ../elm2.4/lib/date_util.c    Wed Jan 27 15:54:25 1993
  1265. --- lib/date_util.c    Tue Aug  3 15:28:48 1993
  1266. ***************
  1267. *** 1,8 ****
  1268.   
  1269. ! static char rcsid[] = "@(#)$Id: date_util.c,v 5.2 1993/01/27 20:54:24 syd Exp $";
  1270.   
  1271.   /*******************************************************************************
  1272. !  *  The Elm Mail System  -  $Revision: 5.2 $   $State: Exp $
  1273.    *
  1274.    *             Copyright (c) 1993 USENET Community Trust
  1275.    *******************************************************************************
  1276. --- 1,8 ----
  1277.   
  1278. ! static char rcsid[] = "@(#)$Id: date_util.c,v 5.3 1993/08/03 19:28:39 syd Exp $";
  1279.   
  1280.   /*******************************************************************************
  1281. !  *  The Elm Mail System  -  $Revision: 5.3 $   $State: Exp $
  1282.    *
  1283.    *             Copyright (c) 1993 USENET Community Trust
  1284.    *******************************************************************************
  1285. ***************
  1286. *** 13,18 ****
  1287. --- 13,30 ----
  1288.    *
  1289.    *******************************************************************************
  1290.    * $Log: date_util.c,v $
  1291. +  * Revision 5.3  1993/08/03  19:28:39  syd
  1292. +  * Elm tries to replace the system toupper() and tolower() on current
  1293. +  * BSD systems, which is unnecessary.  Even worse, the replacements
  1294. +  * collide during linking with routines in isctype.o.  This patch adds
  1295. +  * a Configure test to determine whether replacements are really needed
  1296. +  * (BROKE_CTYPE definition).  The <ctype.h> header file is now included
  1297. +  * globally through hdrs/defs.h and the BROKE_CTYPE patchup is handled
  1298. +  * there.  Inclusion of <ctype.h> was removed from *all* the individual
  1299. +  * files, and the toupper() and tolower() routines in lib/opt_utils.c
  1300. +  * were dropped.
  1301. +  * From: chip@chinacat.unicom.com (Chip Rosenthal)
  1302. +  *
  1303.    * Revision 5.2  1993/01/27  20:54:24  syd
  1304.    * There is a small bug in this routine in Chip's PL21 patch.  The code
  1305.    * calls atonum to convert the 4 digit timezone field.  However this field
  1306. ***************
  1307. *** 27,33 ****
  1308.    ******************************************************************************/
  1309.   
  1310.   #include "headers.h"
  1311. - #include <ctype.h>
  1312.   
  1313.   /*
  1314.    * Date processing functions:
  1315. --- 39,44 ----
  1316.  
  1317. Index: lib/expand.c
  1318. Prereq: 5.3
  1319. *** ../elm2.4/lib/expand.c    Thu Dec 10 20:45:27 1992
  1320. --- lib/expand.c    Sun Sep 19 19:38:55 1993
  1321. ***************
  1322. *** 1,8 ****
  1323.   
  1324. ! static char rcsid[] = "@(#)$Id: expand.c,v 5.3 1992/12/11 01:45:04 syd Exp $";
  1325.   
  1326.   /*******************************************************************************
  1327. !  *  The Elm Mail System  -  $Revision: 5.3 $   $State: Exp $
  1328.    *
  1329.    *            Copyright (c) 1988-1992 USENET Community Trust
  1330.    *            Copyright (c) 1986,1987 Dave Taylor
  1331. --- 1,8 ----
  1332.   
  1333. ! static char rcsid[] = "@(#)$Id: expand.c,v 5.4 1993/09/19 23:38:55 syd Exp $";
  1334.   
  1335.   /*******************************************************************************
  1336. !  *  The Elm Mail System  -  $Revision: 5.4 $   $State: Exp $
  1337.    *
  1338.    *            Copyright (c) 1988-1992 USENET Community Trust
  1339.    *            Copyright (c) 1986,1987 Dave Taylor
  1340. ***************
  1341. *** 14,19 ****
  1342. --- 14,24 ----
  1343.    *
  1344.    *******************************************************************************
  1345.    * $Log: expand.c,v $
  1346. +  * Revision 5.4  1993/09/19  23:38:55  syd
  1347. +  * expand() didn't read the global rc file if the user elmrc didn't exist or
  1348. +  * didn't have an entry for maildir.
  1349. +  * From: Jan.Djarv@sa.erisoft.se (Jan Djarv)
  1350. +  *
  1351.    * Revision 5.3  1992/12/11  01:45:04  syd
  1352.    * remove sys/types.h include, it is now included by defs.h
  1353.    * and this routine includes defs.h or indirectly includes defs.h
  1354. ***************
  1355. *** 44,56 ****
  1356.   
  1357.   char *expand_define();
  1358.   
  1359.   int
  1360.   expand(filename)
  1361.   char *filename;
  1362.   {
  1363.       /** Expand the filename since the first character is a meta-
  1364.           character that should expand to the "maildir" variable
  1365. !         in the users ".elmrc" file...
  1366.   
  1367.           Note: this is a brute force way of getting the entry out 
  1368.           of the .elmrc file, and isn't recommended for the faint 
  1369. --- 49,93 ----
  1370.   
  1371.   char *expand_define();
  1372.   
  1373. + static char*
  1374. + expand_maildir(rcfile, filename, buffer)
  1375. + FILE *rcfile;
  1376. + char *filename;
  1377. + char *buffer;
  1378. + {
  1379. +     char *home = NULL, *bufptr;
  1380. +     int  foundit = 0;
  1381. + 
  1382. +     bufptr = (char *) buffer;        /* same address */
  1383. +     
  1384. +     while (! foundit && mail_gets(buffer, SLEN, rcfile) != 0) {
  1385. +       if (strncmp(buffer, "maildir", 7) == 0 ||
  1386. +           strncmp(buffer, "folders", 7) == 0) {
  1387. +         while (*bufptr != '=' && *bufptr) 
  1388. +           bufptr++;
  1389. +         bufptr++;            /* skip the equals sign */
  1390. +         while (whitespace(*bufptr) && *bufptr)
  1391. +           bufptr++; 
  1392. +         home = bufptr;        /* remember this address */
  1393. + 
  1394. +         while (! whitespace(*bufptr) && *bufptr != '\n')
  1395. +           bufptr++;
  1396. + 
  1397. +         *bufptr = '\0';        /* remove trailing space */
  1398. +         foundit++;
  1399. +       }
  1400. +     }
  1401. + 
  1402. +     return home;
  1403. + }
  1404. + 
  1405.   int
  1406.   expand(filename)
  1407.   char *filename;
  1408.   {
  1409.       /** Expand the filename since the first character is a meta-
  1410.           character that should expand to the "maildir" variable
  1411. !         in the users ".elmrc" file or in the global rc file...
  1412.   
  1413.           Note: this is a brute force way of getting the entry out 
  1414.           of the .elmrc file, and isn't recommended for the faint 
  1415. ***************
  1416. *** 58,68 ****
  1417.       **/
  1418.   
  1419.       FILE *rcfile;
  1420. !     char  buffer[SLEN], *expanded_dir, *home, *bufptr;
  1421. !     int   foundit = 0;
  1422.   
  1423. -     bufptr = (char *) buffer;        /* same address */
  1424. -     
  1425.       if ((home = getenv("HOME")) == NULL) {
  1426.         printf(catgets(elm_msg_cat, ElmrcSet, ElmrcExpandHome,
  1427.            "Can't expand environment variable $HOME to find .elmrc file!\n"));
  1428. --- 95,102 ----
  1429.       **/
  1430.   
  1431.       FILE *rcfile;
  1432. !     char  buffer[SLEN], *home, *expanded_dir;
  1433.   
  1434.       if ((home = getenv("HOME")) == NULL) {
  1435.         printf(catgets(elm_msg_cat, ElmrcSet, ElmrcExpandHome,
  1436.            "Can't expand environment variable $HOME to find .elmrc file!\n"));
  1437. ***************
  1438. *** 71,105 ****
  1439.   
  1440.       sprintf(buffer, "%s/%s", home, elmrcfile);
  1441.   
  1442. !     if ((rcfile = fopen(buffer, "r")) == NULL) {
  1443. !       printf(catgets(elm_msg_cat, ElmrcSet, ElmrcOpenElmrc,
  1444. !         "Can't open your \".elmrc\" file (%s) for reading!\n"),
  1445. !          buffer);
  1446. !       return(NO);
  1447.       }
  1448.   
  1449. !     while (! foundit && mail_gets(buffer, SLEN, rcfile) != 0) {
  1450. !       if (strncmp(buffer, "maildir", 7) == 0 ||
  1451. !           strncmp(buffer, "folders", 7) == 0) {
  1452. !         while (*bufptr != '=' && *bufptr) 
  1453. !           bufptr++;
  1454. !         bufptr++;            /* skip the equals sign */
  1455. !         while (whitespace(*bufptr) && *bufptr)
  1456. !           bufptr++; 
  1457. !         home = bufptr;        /* remember this address */
  1458. ! 
  1459. !         while (! whitespace(*bufptr) && *bufptr != '\n')
  1460. !           bufptr++;
  1461. ! 
  1462. !         *bufptr = '\0';        /* remove trailing space */
  1463. !         foundit++;
  1464.         }
  1465.       }
  1466.   
  1467. !     fclose(rcfile);            /* be nice... */
  1468. ! 
  1469. !     if (! foundit) {
  1470. !       /* Use default */
  1471.         sprintf(buffer, "~/%s", default_folders);
  1472.         home = buffer;
  1473.       }
  1474. --- 105,125 ----
  1475.   
  1476.       sprintf(buffer, "%s/%s", home, elmrcfile);
  1477.   
  1478. !     home = NULL;
  1479. !     if ((rcfile = fopen(buffer, "r")) != NULL) {
  1480. !       home = expand_maildir(rcfile, filename, buffer);
  1481. !       fclose(rcfile);
  1482.       }
  1483.   
  1484. !     if (home == NULL) { /* elmrc didn't exist or maildir wasn't in it */
  1485. !       if ((rcfile = fopen(system_rc_file, "r")) != NULL) {
  1486. !         home = expand_maildir(rcfile, filename, buffer);
  1487. !         fclose(rcfile);
  1488.         }
  1489.       }
  1490.   
  1491. !     if (home == NULL) {
  1492. !       /* Didn't find it, use default */
  1493.         sprintf(buffer, "~/%s", default_folders);
  1494.         home = buffer;
  1495.       }
  1496.  
  1497. Index: lib/figadrssee.c
  1498. Prereq: 5.2
  1499. *** ../elm2.4/lib/figadrssee.c    Wed Feb  3 11:25:46 1993
  1500. --- lib/figadrssee.c    Sat Jun 12 01:33:39 1993
  1501. ***************
  1502. *** 1,8 ****
  1503.   
  1504. ! static char rcsid[] = "@(#)$Id: figadrssee.c,v 5.2 1993/02/03 16:25:45 syd Exp $";
  1505.   
  1506.   /*******************************************************************************
  1507. !  *  The Elm Mail System  -  $Revision: 5.2 $   $State: Exp $
  1508.    *
  1509.    *            Copyright (c) 1988-1992 USENET Community Trust
  1510.    *            Copyright (c) 1986,1987 Dave Taylor
  1511. --- 1,8 ----
  1512.   
  1513. ! static char rcsid[] = "@(#)$Id: figadrssee.c,v 5.3 1993/06/12 05:33:32 syd Exp $";
  1514.   
  1515.   /*******************************************************************************
  1516. !  *  The Elm Mail System  -  $Revision: 5.3 $   $State: Exp $
  1517.    *
  1518.    *            Copyright (c) 1988-1992 USENET Community Trust
  1519.    *            Copyright (c) 1986,1987 Dave Taylor
  1520. ***************
  1521. *** 14,19 ****
  1522. --- 14,23 ----
  1523.    *
  1524.    *******************************************************************************
  1525.    * $Log: figadrssee.c,v $
  1526. +  * Revision 5.3  1993/06/12  05:33:32  syd
  1527. +  * Remove useless auto
  1528. +  * From: Syd
  1529. +  *
  1530.    * Revision 5.2  1993/02/03  16:25:45  syd
  1531.    * Adresses with double quoted strings that contains comma was parsed
  1532.    * wrongly by break_down_tolist() and figure_out_addressee().
  1533. ***************
  1534. *** 42,48 ****
  1535.       **/
  1536.   
  1537.       char *address, *bufptr, mybuf[SLEN];
  1538. -     register int index2 = 0;
  1539.       
  1540.       if (equal(mail_to, username)) return;    /* can't be better! */
  1541.   
  1542. --- 46,51 ----
  1543.  
  1544. Index: lib/gcos_name.c
  1545. Prereq: 5.2
  1546. *** ../elm2.4/lib/gcos_name.c    Tue Jan 19 22:02:33 1993
  1547. --- lib/gcos_name.c    Tue Aug  3 15:28:49 1993
  1548. ***************
  1549. *** 1,7 ****
  1550. ! static char rcsid[] = "@(#)$Id: gcos_name.c,v 5.2 1993/01/20 03:02:19 syd Exp $";
  1551.   
  1552.   /*******************************************************************************
  1553. !  *  The Elm Mail System  -  $Revision: 5.2 $   $State: Exp $
  1554.    *
  1555.    *            Copyright (c) 1988-1992 USENET Community Trust
  1556.    *            Copyright (c) 1986,1987 Dave Taylor
  1557. --- 1,7 ----
  1558. ! static char rcsid[] = "@(#)$Id: gcos_name.c,v 5.3 1993/08/03 19:28:39 syd Exp $";
  1559.   
  1560.   /*******************************************************************************
  1561. !  *  The Elm Mail System  -  $Revision: 5.3 $   $State: Exp $
  1562.    *
  1563.    *            Copyright (c) 1988-1992 USENET Community Trust
  1564.    *            Copyright (c) 1986,1987 Dave Taylor
  1565. ***************
  1566. *** 13,18 ****
  1567. --- 13,30 ----
  1568.    *
  1569.    *******************************************************************************
  1570.    * $Log: gcos_name.c,v $
  1571. +  * Revision 5.3  1993/08/03  19:28:39  syd
  1572. +  * Elm tries to replace the system toupper() and tolower() on current
  1573. +  * BSD systems, which is unnecessary.  Even worse, the replacements
  1574. +  * collide during linking with routines in isctype.o.  This patch adds
  1575. +  * a Configure test to determine whether replacements are really needed
  1576. +  * (BROKE_CTYPE definition).  The <ctype.h> header file is now included
  1577. +  * globally through hdrs/defs.h and the BROKE_CTYPE patchup is handled
  1578. +  * there.  Inclusion of <ctype.h> was removed from *all* the individual
  1579. +  * files, and the toupper() and tolower() routines in lib/opt_utils.c
  1580. +  * were dropped.
  1581. +  * From: chip@chinacat.unicom.com (Chip Rosenthal)
  1582. +  *
  1583.    * Revision 5.2  1993/01/20  03:02:19  syd
  1584.    * Move string declarations to defs.h
  1585.    * From: Syd
  1586. ***************
  1587. *** 28,39 ****
  1588.   **/
  1589.   
  1590.   #include "headers.h"
  1591. - #include <ctype.h>
  1592. - 
  1593. - #ifdef BSD 
  1594. - #undef tolower
  1595. - #undef toupper
  1596. - #endif
  1597.   
  1598.   char *
  1599.   gcos_name(gcos_field, logname)
  1600. --- 40,45 ----
  1601.  
  1602. Index: lib/get_tz.c
  1603. *** /dev/null    Sun Sep 19 14:13:21 1993
  1604. --- lib/get_tz.c    Tue Aug 10 14:57:50 1993
  1605. ***************
  1606. *** 0 ****
  1607. --- 1,298 ----
  1608. + 
  1609. + static char rcsid[] = "@(#)$Id: get_tz.c,v 5.1 1993/08/10 18:56:53 syd Exp $";
  1610. + 
  1611. + /*******************************************************************************
  1612. +  *  The Elm Mail System  -  $Revision: 5.1 $   $State: Exp $
  1613. +  *
  1614. +  *             Copyright (c) 1992, 1993 USENET Community Trust
  1615. +  *******************************************************************************
  1616. +  * Bug reports, patches, comments, suggestions should be sent to:
  1617. +  *
  1618. +  *    Syd Weinstein, Elm Coordinator
  1619. +  *    elm@DSI.COM            dsinc!elm
  1620. +  *
  1621. +  *******************************************************************************
  1622. +  * $Log: get_tz.c,v $
  1623. +  * Revision 5.1  1993/08/10  18:56:53  syd
  1624. +  * Initial Checkin
  1625. +  *
  1626. +  *
  1627. +  ******************************************************************************/
  1628. + 
  1629. + /*
  1630. +  * get_tz - Site-specific timezone handling.
  1631. +  *
  1632. +  * get_tz_mins(tm) - Return timezone adjustment in minutes west of GMT.
  1633. +  * get_tz_name(tm) - Return timezone name.
  1634. +  *
  1635. +  * These procedures return timezone infomation for the time specified by "tm".
  1636. +  * If "tm" is NULL, then the local, current timezone info are returned.
  1637. +  *
  1638. +  * On some systems, regardless of the "tm" value, the local timezone
  1639. +  * values are returned.
  1640. +  *
  1641. +  * On some systems, when passing a non-NULL "tm" value, a call to "tzset()"
  1642. +  * must be performed prior to invoking these routines to obtain proper
  1643. +  * timezone information.  Note that some systems will implicitly call
  1644. +  * "tzset()" through other routines, such as "localtime()".  On such
  1645. +  * systems an explicit "tzset()" is not required if the "tm" value was
  1646. +  * obtained through a routine that does the implicit setup.
  1647. +  *
  1648. +  * The task of discovering timezone info is a horrid mess because so many
  1649. +  * systems have different notions about how to do it.  The goal of these
  1650. +  * routines is to encapsulate the system dependancies here.  Two definitions,
  1651. +  * TZMINS_USE_xxxxxx and TZNAME_USE_xxxxxx must be enabled as appropriate
  1652. +  * for this system.  Exactly _one_ definition from each group must be
  1653. +  * specified.  The available choices are:
  1654. +  *
  1655. +  * TZMINS_USE_xxxxxx specifies how to get timezone offset.
  1656. +  *
  1657. +  *    TZMINS_USE_TM_TZADJ    use (struct tm*)->tm_tzadj
  1658. +  *    TZMINS_USE_TM_GMTOFF   use (struct tm*)->tm_gmtoff
  1659. +  *    TZMINS_USE_TZAZ_GLOBAL use "timezone, altzone" externals
  1660. +  *    TZMINS_USE_TZ_GLOBAL   use "timezone" external
  1661. +  *    TZMINS_USE_FTIME       use ftime() function
  1662. +  *    TZMINS_USE_TIMEOFDAY   use gettimeofday() function
  1663. +  *
  1664. +  * TZNAME_USE_xxxxxx specifies how to get timezone name.
  1665. +  *
  1666. +  *    TZNAME_USE_TM_NAME     use (struct tm *)->tm_name
  1667. +  *    TZNAME_USE_TM_ZONE     use (struct tm *)->tm_zone
  1668. +  *    TZNAME_USE_TZNAME      use "tzname[]" external
  1669. +  *    TZNAME_USE_TIMEZONE    use timezone() function
  1670. +  *
  1671. +  * The TZMINS_HANDLING and TZNAME_HANDLING definitions are just used
  1672. +  * to verify the configurations were setup correctly.  They force
  1673. +  * compiler warnings and/or errors in the event of a configuration problem.
  1674. +  */
  1675. + 
  1676. + #include "defs.h"
  1677. + 
  1678. + #ifdef I_TIME
  1679. + #  include <time.h>
  1680. + #endif
  1681. + #ifdef I_SYSTIME
  1682. + #  include <sys/time.h>
  1683. + #endif
  1684. + #ifdef TZMINS_USE_FTIME
  1685. + #  include <sys/timeb.h>
  1686. + #endif
  1687. + 
  1688. + #ifndef    _POSIX_SOURCE
  1689. + extern struct tm *localtime();
  1690. + extern time_t      time();
  1691. + #endif
  1692. + 
  1693. + /****************************************************************************/
  1694. + 
  1695. + int get_tz_mins(tm)
  1696. + struct tm *tm;
  1697. + {
  1698. + 
  1699. +     if (tm == 0) {
  1700. +         time_t t;
  1701. +         (void) time(&t);
  1702. +         tm = localtime(&t);
  1703. +     }
  1704. + 
  1705. + #ifdef TZMINS_USE_TM_TZADJ
  1706. + #define TZMINS_HANDLING 1
  1707. +     /*
  1708. +      * This system maintains the timezone offset in the (struct tm)
  1709. +      * as a number of _seconds_ west of GMT.
  1710. +      */
  1711. +     return (int)(tm->tm_tzadj / 60);
  1712. + #endif
  1713. + 
  1714. + #ifdef TZMINS_USE_TM_GMTOFF
  1715. + #define TZMINS_HANDLING 2
  1716. +     /*
  1717. +      * This system maintains the timezone offset in the (struct tm)
  1718. +      * as a number of _seconds_ _east_ of GMT.  Since this is an
  1719. +      * easterly pointing offset, we need to flip the sign to go the
  1720. +      * other direction.
  1721. +      */
  1722. +     return (int)(-tm->tm_gmtoff / 60);
  1723. + #endif
  1724. + 
  1725. + #ifdef TZMINS_USE_TZAZ_GLOBAL
  1726. + #define TZMINS_HANDLING 3
  1727. +     /*
  1728. +      * This system maintains timezone offsets in global variables
  1729. +      * as a number of _seconds_ west of GMT.  There are two globals,
  1730. +      * one for when DST is in effect and one for when it is not,
  1731. +      * and we need to select the correct one.
  1732. +      */
  1733. +     {
  1734. +         extern long altzone, timezone;
  1735. +         return (int)((tm->tm_isdst ? altzone : timezone) / 60);
  1736. +     }
  1737. + #endif
  1738. + 
  1739. + #ifdef TZMINS_USE_TZ_GLOBAL
  1740. + #define TZMINS_HANDLING 4
  1741. +     /*
  1742. +      * This system maintains the timezone offset in a global variable as
  1743. +      * a number of _seconds_ west of GMT.  We need to correct this value
  1744. +      * if DST is in effect.  Note that the global "daylight" indicates
  1745. +      * that DST applies to this site and NOT necessarily that the DST
  1746. +      * correction needs to be applied right now.  Be careful -- some
  1747. +      * systems have a "timezone()" procedure and this method will return
  1748. +      * the address of that procedure rather than a timezone offset!
  1749. +      */
  1750. +     {
  1751. +         extern long timezone;
  1752. +         extern int daylight;
  1753. +         return (int)(timezone/60) -
  1754. +             ((daylight && tm->tm_isdst) ? 60 : 0);
  1755. +     }
  1756. + #endif
  1757. + 
  1758. + #ifdef TZMINS_USE_TIMEOFDAY
  1759. + #define TZMINS_HANDLING 5
  1760. +     /*
  1761. +      * This system uses gettimeofday() to obtain the timezone
  1762. +      * information as minutes west of GMT.  The returned value will
  1763. +      * not be corrected for DST (unless you are unlucky enough to
  1764. +      * own a Unix written by some unmentionable vendor), so we will
  1765. +      * need to account for that.  Be careful -- some systems that
  1766. +      * have this procedure depreciate its use for timezone information
  1767. +      * and recommend it only for the high-resolution time information.
  1768. +      * On these systems the timezone info may be some kernel default
  1769. +      * or even garbage.
  1770. +      */
  1771. +     {
  1772. +         struct timeval tv;
  1773. +         struct timezone tz;
  1774. +         (void) gettimeofday(&tv, &tz);
  1775. + #ifdef AIX
  1776. +         return tz.tz_minuteswest;
  1777. + #else
  1778. +         return tz.tz_minuteswest -
  1779. +             (tm->tm_isdst && tz.tz_dsttime != DST_NONE ? 60 : 0);
  1780. + #endif
  1781. +     }
  1782. + #endif
  1783. + 
  1784. + #ifdef TZMINS_USE_FTIME
  1785. + #define TZMINS_HANDLING 6
  1786. +     /*
  1787. +      * This system uses ftime() to obtain the timezone information
  1788. +      * as minutes west of GMT.  The returned value will not be
  1789. +      * corrected for DST, so we will need to account for that.  Be
  1790. +      * careful -- some systems that have this procedure depreciate
  1791. +      * its use for timezone information and recommend it only for
  1792. +      * the high-resolution time information.  On these systems the
  1793. +      * timezone info may be some kernel default or even garbage.
  1794. +      */
  1795. +     {
  1796. +         struct timeb tb;
  1797. +         (void) ftime(&tb);
  1798. +         return tb.timezone - (tm->tm_isdst ? 60 : 0);
  1799. +     }
  1800. + #endif
  1801. + 
  1802. + #ifndef TZMINS_HANDLING
  1803. +     /* Force a compile error if the timezone config is wrong. */
  1804. +     no_tzmins_handling_defined(TZMINS_HANDLING);
  1805. + #endif
  1806. + }
  1807. + 
  1808. + /****************************************************************************/
  1809. + 
  1810. + char *get_tz_name(tm)
  1811. + struct tm *tm;
  1812. + {
  1813. + 
  1814. +     if (tm == 0) {
  1815. +         time_t t;
  1816. +         (void) time(&t);
  1817. +         tm = localtime(&t);
  1818. +     }
  1819. + 
  1820. + #ifdef TZNAME_USE_TM_NAME
  1821. + #define TZNAME_HANDLING 1
  1822. +     /*
  1823. +      * This system maintains the timezone name in the (struct tm).
  1824. +      */
  1825. +     return tm->tm_name;
  1826. + #endif
  1827. + 
  1828. + #ifdef TZNAME_USE_TM_ZONE
  1829. + #define TZNAME_HANDLING 2
  1830. +     /*
  1831. +      * This system maintains the timezone name in the (struct tm).
  1832. +      */
  1833. +     return tm->tm_zone;
  1834. + #endif
  1835. + 
  1836. + #ifdef TZNAME_USE_TZNAME
  1837. + #define TZNAME_HANDLING 3
  1838. +     /*
  1839. +      * This system maintains a global array that contains two timezone
  1840. +      * names, one for when DST is in effect and one for when it is not.
  1841. +      * We simply need to pick the right one.
  1842. +      */
  1843. +     {
  1844. +         extern char *tzname[];
  1845. +         return tzname[tm->tm_isdst];
  1846. +     }
  1847. + #endif
  1848. + 
  1849. + #ifdef TZNAME_USE_TIMEZONE
  1850. + #define TZNAME_HANDLING 4
  1851. +     /*
  1852. +      * This system provides a timezone() procedure to get a timezone
  1853. +      * name.  Be careful -- some systems have this procedure but
  1854. +      * depreciate its use, and in some cases it is outright broke.
  1855. +      */
  1856. +     {
  1857. +         extern char *timezone();
  1858. +         return timezone(get_tz_mins(tm), tm->tm_isdst);
  1859. +     }
  1860. + #endif
  1861. + 
  1862. + #ifndef TZNAME_HANDLING
  1863. +     /* Force a compile error if the timezone config is wrong. */
  1864. +     no_tzname_handling_defined(TZNAME_HANDLING);
  1865. + #endif
  1866. + }
  1867. + 
  1868. + /****************************************************************************/
  1869. + 
  1870. + #ifdef _TEST
  1871. + 
  1872. + /*
  1873. +  * It would be best to futz around with the TZ setting when running this
  1874. +  * test.  In all cases, the "null" and the "localtime()" results should
  1875. +  * be identical, and the "gmtime()" results should indicate "GMT 0"
  1876. +  * regardless of TZ setting.  Here are a few possible TZ settings you
  1877. +  * can try, and the result you should expect.
  1878. +  *
  1879. +  *    TZ=GMT            always GMT 0
  1880. +  *    TZ=CST6CDT        CST 360 or CDT 300, depending upon time of year
  1881. +  *    TZ=EST5EDT        EST 300 or EDT 240, depending upon time of year
  1882. +  *    TZ=EST5EDT;0,364    always EDT 240
  1883. +  *    TZ=EST5EDT;0,0        always EST 300
  1884. +  *
  1885. +  * Oh...this all assumes your system supports TZ. :-)
  1886. +  */
  1887. + 
  1888. + main()
  1889. + {
  1890. +     time_t t;
  1891. +     struct tm *tm;
  1892. +     static char f[] = "using %s tm struct - name=\"%s\" mins_west=\"%d\"\n";
  1893. + 
  1894. +     (void) time(&t);
  1895. +     tm = (struct tm *)0;
  1896. +     printf(f, "null", get_tz_name(tm), get_tz_mins(tm));
  1897. +     tm = localtime(&t);
  1898. +     printf(f, "localtime()", get_tz_name(tm), get_tz_mins(tm));
  1899. +     tm = gmtime(&t);
  1900. +     printf(f, "gmtime()", get_tz_name(tm), get_tz_mins(tm));
  1901. +     exit(0);
  1902. + }
  1903. + 
  1904. + #endif /*_TEST*/
  1905. + 
  1906.  
  1907. Index: lib/getaddrfrm.c
  1908. Prereq: 5.3
  1909. *** ../elm2.4/lib/getaddrfrm.c    Sun May 16 16:55:52 1993
  1910. --- lib/getaddrfrm.c    Tue Aug  3 15:28:49 1993
  1911. ***************
  1912. *** 1,8 ****
  1913.   
  1914. ! static char rcsid[] = "@(#)$Id: getaddrfrm.c,v 5.3 1993/05/16 20:55:52 syd Exp $";
  1915.   
  1916.   /*******************************************************************************
  1917. !  *  The Elm Mail System  -  $Revision: 5.3 $   $State: Exp $
  1918.    *
  1919.    *            Copyright (c) 1988-1992 USENET Community Trust
  1920.    *            Copyright (c) 1986,1987 Dave Taylor
  1921. --- 1,8 ----
  1922.   
  1923. ! static char rcsid[] = "@(#)$Id: getaddrfrm.c,v 5.4 1993/08/03 19:28:39 syd Exp $";
  1924.   
  1925.   /*******************************************************************************
  1926. !  *  The Elm Mail System  -  $Revision: 5.4 $   $State: Exp $
  1927.    *
  1928.    *            Copyright (c) 1988-1992 USENET Community Trust
  1929.    *            Copyright (c) 1986,1987 Dave Taylor
  1930. ***************
  1931. *** 14,19 ****
  1932. --- 14,31 ----
  1933.    *
  1934.    *******************************************************************************
  1935.    * $Log: getaddrfrm.c,v $
  1936. +  * Revision 5.4  1993/08/03  19:28:39  syd
  1937. +  * Elm tries to replace the system toupper() and tolower() on current
  1938. +  * BSD systems, which is unnecessary.  Even worse, the replacements
  1939. +  * collide during linking with routines in isctype.o.  This patch adds
  1940. +  * a Configure test to determine whether replacements are really needed
  1941. +  * (BROKE_CTYPE definition).  The <ctype.h> header file is now included
  1942. +  * globally through hdrs/defs.h and the BROKE_CTYPE patchup is handled
  1943. +  * there.  Inclusion of <ctype.h> was removed from *all* the individual
  1944. +  * files, and the toupper() and tolower() routines in lib/opt_utils.c
  1945. +  * were dropped.
  1946. +  * From: chip@chinacat.unicom.com (Chip Rosenthal)
  1947. +  *
  1948.    * Revision 5.3  1993/05/16  20:55:52  syd
  1949.    * Fix bug where text following "<" within double-quote delimited comment
  1950.    * is taken as an address.
  1951. ***************
  1952. *** 34,40 ****
  1953.   **/
  1954.   
  1955.   #include "headers.h"
  1956. - #include <ctype.h>
  1957.   
  1958.   #ifdef USE_EMBEDDED_ADDRESSES
  1959.   
  1960. --- 46,51 ----
  1961.  
  1962. Index: lib/getarpdate.c
  1963. Prereq: 5.8
  1964. *** ../elm2.4/lib/getarpdate.c    Sat May  8 15:22:46 1993
  1965. --- lib/getarpdate.c    Tue Aug  3 15:20:59 1993
  1966. ***************
  1967. *** 1,7 ****
  1968. ! static char rcsid[] = "@(#)$Id: getarpdate.c,v 5.8 1993/05/08 19:22:46 syd Exp $";
  1969.   
  1970.   /*******************************************************************************
  1971. !  *  The Elm Mail System  -  $Revision: 5.8 $   $State: Exp $
  1972.    *
  1973.    *            Copyright (c) 1988-1992 USENET Community Trust
  1974.    *            Copyright (c) 1986,1987 Dave Taylor
  1975. --- 1,7 ----
  1976. ! static char rcsid[] = "@(#)$Id: getarpdate.c,v 5.9 1993/08/03 19:17:33 syd Exp $";
  1977.   
  1978.   /*******************************************************************************
  1979. !  *  The Elm Mail System  -  $Revision: 5.9 $   $State: Exp $
  1980.    *
  1981.    *            Copyright (c) 1988-1992 USENET Community Trust
  1982.    *            Copyright (c) 1986,1987 Dave Taylor
  1983. ***************
  1984. *** 13,18 ****
  1985. --- 13,27 ----
  1986.    *
  1987.    *******************************************************************************
  1988.    * $Log: getarpdate.c,v $
  1989. +  * Revision 5.9  1993/08/03  19:17:33  syd
  1990. +  * Implement new timezone handling.  New file lib/get_tz.c with new timezone
  1991. +  * routines.  Added new TZMINS_USE_xxxxxx and TZNAME_USE_xxxxxx configuration
  1992. +  * definitions.  Obsoleted TZNAME, ALTCHECK, and TZ_MINUTESWEST configuration
  1993. +  * definitions.  Updated Configure.  Modified lib/getarpdate.c and
  1994. +  * lib/strftime.c to use new timezone routines.
  1995. +  *
  1996. +  * From: chip@chinacat.unicom.com (Chip Rosenthal)
  1997. +  *
  1998.    * Revision 5.8  1993/05/08  19:22:46  syd
  1999.    * On the DEC Alpha, OSF/1 the following change made things happy.
  2000.    * From: dave@opus.csd.uwm.edu (Dave Rasmussen)
  2001. ***************
  2002. *** 49,58 ****
  2003.    *
  2004.    ******************************************************************************/
  2005.   
  2006. - /** 
  2007. - 
  2008. - **/
  2009. - 
  2010.   #include "headers.h"
  2011.   
  2012.   #ifdef I_TIME
  2013. --- 58,63 ----
  2014. ***************
  2015. *** 61,75 ****
  2016.   #ifdef I_SYSTIME
  2017.   #  include <sys/time.h>
  2018.   #endif
  2019. - #ifdef BSD
  2020. - #  include <sys/timeb.h>
  2021. - #endif
  2022. - 
  2023. - #include <ctype.h>
  2024.   
  2025.   #ifndef    _POSIX_SOURCE
  2026.   extern struct tm *localtime();
  2027. - extern struct tm *gmtime();
  2028.   extern time_t      time();
  2029.   #endif
  2030.   
  2031. --- 66,74 ----
  2032. ***************
  2033. *** 79,93 ****
  2034.   static char *arpa_monname[] = { "Jan", "Feb", "Mar", "Apr", "May", "Jun",
  2035.             "Jul", "Aug", "Sep", "Oct", "Nov", "Dec", ""};
  2036.   
  2037. ! #ifdef TZNAME
  2038. !   extern char *tzname[];
  2039. ! #else
  2040. !   char *timezone();
  2041. ! #endif
  2042. ! 
  2043. ! #ifdef _AIX370
  2044. ! #undef ALTCHECK
  2045. ! #endif /* _AIX370 */
  2046.   
  2047.   char *
  2048.   get_arpa_date()
  2049. --- 78,85 ----
  2050.   static char *arpa_monname[] = { "Jan", "Feb", "Mar", "Apr", "May", "Jun",
  2051.             "Jul", "Aug", "Sep", "Oct", "Nov", "Dec", ""};
  2052.   
  2053. ! extern int get_tz_mins();
  2054. ! extern char *get_tz_name();
  2055.   
  2056.   char *
  2057.   get_arpa_date()
  2058. ***************
  2059. *** 100,190 ****
  2060.       **/
  2061.   
  2062.       static char buffer[SLEN];    /* static character buffer       */
  2063. !     struct tm *the_time;        /* Time structure, see CTIME(3C) */
  2064. !     time_t       junk;        /* time in seconds....         */
  2065.       long       tzmin;        /* number of minutes off gmt      */
  2066.       char      *tzsign;        /* + or - gmt              */
  2067. ! 
  2068. ! #if !defined(TZNAME) || defined(_AIX)
  2069. ! # ifndef TZ_MINUTESWEST
  2070. !     struct timeb    loc_time;
  2071. ! 
  2072. !     junk = time((time_t *) 0);
  2073. !     ftime(&loc_time);
  2074. ! # else /* TZ_MINUTESWEST */
  2075. !     struct  timeval  time_val;        
  2076. !     struct  timezone time_zone;
  2077. ! 
  2078. !     gettimeofday(&time_val, &time_zone);
  2079. !     junk = time_val.tv_sec;
  2080. ! # endif /* TZ_MINUTESWEST */
  2081. ! 
  2082. ! #else /* TZNAME */
  2083. ! # ifndef __osf__
  2084. !     extern    time_t    timezone;
  2085. ! # endif /* __osf__ */
  2086. ! # ifdef ALTCHECK
  2087. !     extern    time_t    altzone;
  2088. ! # endif
  2089. ! 
  2090. !     junk = time((time_t *) 0);    /* this must be here for it to work! */
  2091. ! #endif /* TZNAME */
  2092. ! 
  2093. !     the_time = localtime(&junk);
  2094. !     if (the_time->tm_year < 100)
  2095. !         the_time->tm_year += 1900;
  2096. ! #if !defined(TZNAME) || defined(_AIX)
  2097. ! # ifdef TZ_MINUTESWEST
  2098. ! #  ifndef AIX
  2099. !     if (the_time->tm_isdst && time_zone.tz_dsttime != DST_NONE)
  2100. !         tzmin = - (time_zone.tz_minuteswest - 60);
  2101. !     else
  2102. ! #  endif /* AIX */
  2103. !         tzmin = - time_zone.tz_minuteswest;
  2104. ! # else /* TZ_MINUTESWEST */
  2105. !     tzmin = the_time->tm_gmtoff / 60;
  2106. ! # endif /* TZ_MINUTESWEST */
  2107. ! #else /* TZNAME */
  2108. ! # ifdef ALTCHECK
  2109. !     if (the_time->tm_isdst)
  2110. !         tzmin = - (altzone / 60);
  2111. !     else
  2112. !         tzmin = - (timezone / 60);
  2113. ! # else /* ALTCHECK */
  2114. !     tzmin = - (timezone / 60);
  2115. ! # endif /* ALTCHECK */
  2116. ! #endif /* TZNAME */
  2117.   
  2118. !     if (tzmin >= 0)
  2119.           tzsign = "+";
  2120. !     else {
  2121.           tzsign = "-";
  2122.           tzmin = -tzmin;
  2123.       }
  2124. - 
  2125.       sprintf(buffer, "%s, %d %s %d %02d:%02d:%02d %s%02d%02d (%s)",
  2126. !       arpa_dayname[the_time->tm_wday],
  2127. !       the_time->tm_mday,
  2128. !       arpa_monname[the_time->tm_mon], the_time->tm_year,
  2129. !       the_time->tm_hour, the_time->tm_min, the_time->tm_sec,
  2130. !       tzsign, tzmin / 60, tzmin % 60,
  2131. ! #if !defined(TZNAME) || defined(_AIX)
  2132. ! #ifdef TZ_MINUTESWEST
  2133. ! # ifdef GOULD_NP1
  2134. !       the_time->tm_zone);
  2135. ! # else
  2136. ! #  ifndef _AIX
  2137. !       timezone(time_zone.tz_minuteswest, the_time->tm_isdst));
  2138. ! #  else /* AIX has tzname */
  2139. !       tzname[the_time->tm_isdst]);      
  2140. ! #  endif      
  2141. ! # endif
  2142. ! #else
  2143. !       timezone(loc_time.timezone, the_time->tm_isdst));
  2144. ! #endif
  2145. ! #else
  2146. !       tzname[the_time->tm_isdst]);
  2147. ! #endif
  2148.       
  2149. !     return( (char *) buffer);
  2150.   }
  2151. --- 92,118 ----
  2152.       **/
  2153.   
  2154.       static char buffer[SLEN];    /* static character buffer       */
  2155. !     time_t       curr_time;        /* time in seconds....         */
  2156. !     struct tm *curr_tm;        /* Time structure, see CTIME(3C) */
  2157.       long       tzmin;        /* number of minutes off gmt      */
  2158.       char      *tzsign;        /* + or - gmt              */
  2159. !     int      year;            /* current year - with century     */
  2160.   
  2161. !     (void) time(&curr_time);
  2162. !     curr_tm = localtime(&curr_time);
  2163. !     if ((year = curr_tm->tm_year) < 100)
  2164. !         year += 1900;
  2165. !     if ((tzmin = -get_tz_mins(curr_tm)) >= 0) {
  2166.           tzsign = "+";
  2167. !     } else {
  2168.           tzsign = "-";
  2169.           tzmin = -tzmin;
  2170.       }
  2171.       sprintf(buffer, "%s, %d %s %d %02d:%02d:%02d %s%02d%02d (%s)",
  2172. !       arpa_dayname[curr_tm->tm_wday],
  2173. !       curr_tm->tm_mday, arpa_monname[curr_tm->tm_mon], year,
  2174. !       curr_tm->tm_hour, curr_tm->tm_min, curr_tm->tm_sec,
  2175. !       tzsign, tzmin / 60, tzmin % 60, get_tz_name(curr_tm));
  2176.       
  2177. !     return buffer;
  2178.   }
  2179.  
  2180. Index: lib/getword.c
  2181. Prereq: 5.1
  2182. *** ../elm2.4/lib/getword.c    Mon Jan 18 23:46:52 1993
  2183. --- lib/getword.c    Tue Aug  3 15:28:50 1993
  2184. ***************
  2185. *** 1,8 ****
  2186.   
  2187. ! static char rcsid[] = "@(#)$Id: getword.c,v 5.1 1993/01/19 04:46:21 syd Exp $";
  2188.   
  2189.   /*******************************************************************************
  2190. !  *  The Elm Mail System  -  $Revision: 5.1 $   $State: Exp $
  2191.    *
  2192.    *             Copyright (c) 1993 USENET Community Trust
  2193.    *******************************************************************************
  2194. --- 1,8 ----
  2195.   
  2196. ! static char rcsid[] = "@(#)$Id: getword.c,v 5.2 1993/08/03 19:28:39 syd Exp $";
  2197.   
  2198.   /*******************************************************************************
  2199. !  *  The Elm Mail System  -  $Revision: 5.2 $   $State: Exp $
  2200.    *
  2201.    *             Copyright (c) 1993 USENET Community Trust
  2202.    *******************************************************************************
  2203. ***************
  2204. *** 13,18 ****
  2205. --- 13,30 ----
  2206.    *
  2207.    *******************************************************************************
  2208.    * $Log: getword.c,v $
  2209. +  * Revision 5.2  1993/08/03  19:28:39  syd
  2210. +  * Elm tries to replace the system toupper() and tolower() on current
  2211. +  * BSD systems, which is unnecessary.  Even worse, the replacements
  2212. +  * collide during linking with routines in isctype.o.  This patch adds
  2213. +  * a Configure test to determine whether replacements are really needed
  2214. +  * (BROKE_CTYPE definition).  The <ctype.h> header file is now included
  2215. +  * globally through hdrs/defs.h and the BROKE_CTYPE patchup is handled
  2216. +  * there.  Inclusion of <ctype.h> was removed from *all* the individual
  2217. +  * files, and the toupper() and tolower() routines in lib/opt_utils.c
  2218. +  * were dropped.
  2219. +  * From: chip@chinacat.unicom.com (Chip Rosenthal)
  2220. +  *
  2221.    * Revision 5.1  1993/01/19  04:46:21  syd
  2222.    * Initial Checkin
  2223.    *
  2224. ***************
  2225. *** 20,26 ****
  2226.    ******************************************************************************/
  2227.   
  2228.   #include <stdio.h>
  2229. - #include <ctype.h>
  2230.   #include "defs.h"
  2231.   
  2232.   int get_word(buffer, start, word, wordlen)
  2233. --- 32,37 ----
  2234.  
  2235. Index: lib/header_cmp.c
  2236. Prereq: 5.2
  2237. *** ../elm2.4/lib/header_cmp.c    Sat Nov  7 15:59:52 1992
  2238. --- lib/header_cmp.c    Tue Aug  3 15:28:50 1993
  2239. ***************
  2240. *** 1,7 ****
  2241. ! static char rcsid[] = "@(#)$Id: header_cmp.c,v 5.2 1992/11/07 20:59:49 syd Exp $";
  2242.   
  2243.   /*******************************************************************************
  2244. !  *  The Elm Mail System  -  $Revision: 5.2 $   $State: Exp $
  2245.    *
  2246.    *            Copyright (c) 1988-1992 USENET Community Trust
  2247.    *            Copyright (c) 1986,1987 Dave Taylor
  2248. --- 1,7 ----
  2249. ! static char rcsid[] = "@(#)$Id: header_cmp.c,v 5.3 1993/08/03 19:28:39 syd Exp $";
  2250.   
  2251.   /*******************************************************************************
  2252. !  *  The Elm Mail System  -  $Revision: 5.3 $   $State: Exp $
  2253.    *
  2254.    *            Copyright (c) 1988-1992 USENET Community Trust
  2255.    *            Copyright (c) 1986,1987 Dave Taylor
  2256. ***************
  2257. *** 13,18 ****
  2258. --- 13,30 ----
  2259.    *
  2260.    *******************************************************************************
  2261.    * $Log: header_cmp.c,v $
  2262. +  * Revision 5.3  1993/08/03  19:28:39  syd
  2263. +  * Elm tries to replace the system toupper() and tolower() on current
  2264. +  * BSD systems, which is unnecessary.  Even worse, the replacements
  2265. +  * collide during linking with routines in isctype.o.  This patch adds
  2266. +  * a Configure test to determine whether replacements are really needed
  2267. +  * (BROKE_CTYPE definition).  The <ctype.h> header file is now included
  2268. +  * globally through hdrs/defs.h and the BROKE_CTYPE patchup is handled
  2269. +  * there.  Inclusion of <ctype.h> was removed from *all* the individual
  2270. +  * files, and the toupper() and tolower() routines in lib/opt_utils.c
  2271. +  * were dropped.
  2272. +  * From: chip@chinacat.unicom.com (Chip Rosenthal)
  2273. +  *
  2274.    * Revision 5.2  1992/11/07  20:59:49  syd
  2275.    * fix typo
  2276.    *
  2277. ***************
  2278. *** 32,42 ****
  2279.   **/
  2280.   
  2281.   #include "headers.h"
  2282. - #include <ctype.h>
  2283. - 
  2284. - #ifdef BSD
  2285. - #undef tolower
  2286. - #endif
  2287.   
  2288.   
  2289.   char *
  2290. --- 44,49 ----
  2291.  
  2292. Index: lib/istrcmp.c
  2293. Prereq: 5.1
  2294. *** ../elm2.4/lib/istrcmp.c    Sat Oct  3 18:42:24 1992
  2295. --- lib/istrcmp.c    Tue Aug  3 15:28:51 1993
  2296. ***************
  2297. *** 1,7 ****
  2298. ! static char rcsid[] = "@(#)$Id: istrcmp.c,v 5.1 1992/10/03 22:41:36 syd Exp $";
  2299.   
  2300.   /*******************************************************************************
  2301. !  *  The Elm Mail System  -  $Revision: 5.1 $   $State: Exp $
  2302.    *
  2303.    *            Copyright (c) 1988-1992 USENET Community Trust
  2304.    *            Copyright (c) 1986,1987 Dave Taylor
  2305. --- 1,7 ----
  2306. ! static char rcsid[] = "@(#)$Id: istrcmp.c,v 5.2 1993/08/03 19:28:39 syd Exp $";
  2307.   
  2308.   /*******************************************************************************
  2309. !  *  The Elm Mail System  -  $Revision: 5.2 $   $State: Exp $
  2310.    *
  2311.    *            Copyright (c) 1988-1992 USENET Community Trust
  2312.    *            Copyright (c) 1986,1987 Dave Taylor
  2313. ***************
  2314. *** 13,18 ****
  2315. --- 13,30 ----
  2316.    *
  2317.    *******************************************************************************
  2318.    * $Log: istrcmp.c,v $
  2319. +  * Revision 5.2  1993/08/03  19:28:39  syd
  2320. +  * Elm tries to replace the system toupper() and tolower() on current
  2321. +  * BSD systems, which is unnecessary.  Even worse, the replacements
  2322. +  * collide during linking with routines in isctype.o.  This patch adds
  2323. +  * a Configure test to determine whether replacements are really needed
  2324. +  * (BROKE_CTYPE definition).  The <ctype.h> header file is now included
  2325. +  * globally through hdrs/defs.h and the BROKE_CTYPE patchup is handled
  2326. +  * there.  Inclusion of <ctype.h> was removed from *all* the individual
  2327. +  * files, and the toupper() and tolower() routines in lib/opt_utils.c
  2328. +  * were dropped.
  2329. +  * From: chip@chinacat.unicom.com (Chip Rosenthal)
  2330. +  *
  2331.    * Revision 5.1  1992/10/03  22:41:36  syd
  2332.    * Initial checkin as of 2.4 Release at PL0
  2333.    *
  2334. ***************
  2335. *** 24,35 ****
  2336.   **/
  2337.   
  2338.   #include "headers.h"
  2339. - #include <ctype.h>
  2340. - 
  2341. - #ifdef BSD
  2342. - #undef tolower
  2343. - #endif
  2344. - 
  2345.   
  2346.   int
  2347.   istrcmp(s1,s2)
  2348. --- 36,41 ----
  2349. ***************
  2350. *** 38,45 ****
  2351.       /* case insensitive comparison */
  2352.       register int d;
  2353.       for (;;) {
  2354. !       d = ( isupper(*s1) ? tolower(*s1) : *s1 )
  2355. !           - ( isupper(*s2) ? tolower(*s2) : *s2 ) ;
  2356.         if ( d != 0 || *s1 == '\0' || *s2 == '\0' )
  2357.           return d;
  2358.         ++s1;
  2359. --- 44,50 ----
  2360.       /* case insensitive comparison */
  2361.       register int d;
  2362.       for (;;) {
  2363. !       d = (tolower(*s1) - tolower(*s2));
  2364.         if ( d != 0 || *s1 == '\0' || *s2 == '\0' )
  2365.           return d;
  2366.         ++s1;
  2367.  
  2368. Index: lib/ldstate.c
  2369. Prereq: 5.5
  2370. *** ../elm2.4/lib/ldstate.c    Wed Feb  3 10:26:31 1993
  2371. --- lib/ldstate.c    Sun Aug 22 22:46:53 1993
  2372. ***************
  2373. *** 1,8 ****
  2374.   
  2375. ! static char rcsid[] = "@(#)$Id: ldstate.c,v 5.5 1993/02/03 15:26:13 syd Exp $";
  2376.   
  2377.   /*******************************************************************************
  2378. !  *  The Elm Mail System  -  $Revision: 5.5 $   $State: Exp $
  2379.    *
  2380.    *            Copyright (c) 1992 USENET Community Trust
  2381.    *******************************************************************************
  2382. --- 1,8 ----
  2383.   
  2384. ! static char rcsid[] = "@(#)$Id: ldstate.c,v 5.6 1993/08/23 02:46:51 syd Exp $";
  2385.   
  2386.   /*******************************************************************************
  2387. !  *  The Elm Mail System  -  $Revision: 5.6 $   $State: Exp $
  2388.    *
  2389.    *            Copyright (c) 1992 USENET Community Trust
  2390.    *******************************************************************************
  2391. ***************
  2392. *** 13,18 ****
  2393. --- 13,22 ----
  2394.    *
  2395.    *******************************************************************************
  2396.    * $Log: ldstate.c,v $
  2397. +  * Revision 5.6  1993/08/23  02:46:51  syd
  2398. +  * Test ANSI_C, not __STDC__ (which is not set on e.g. AIX).
  2399. +  * From: decwrl!uunet.UU.NET!fin!chip (Chip Salzenberg)
  2400. +  *
  2401.    * Revision 5.5  1993/02/03  15:26:13  syd
  2402.    * protect atol in ifndef __STDC__ as some make it a macro, and its in stdlib.h
  2403.    *
  2404. ***************
  2405. *** 57,64 ****
  2406.    * the (struct folder_state) record.
  2407.    */
  2408.   
  2409. ! #ifndef __STDC__ /* avoid problemswith systems that declare atol as a macro */
  2410. !     extern long atol();
  2411.   #endif
  2412.   
  2413.   static char *elm_fgetline(buf, buflen, fp)
  2414. --- 61,68 ----
  2415.    * the (struct folder_state) record.
  2416.    */
  2417.   
  2418. ! #if !ANSI_C  /* avoid problems with systems that declare atol as a macro */
  2419. ! extern long atol();
  2420.   #endif
  2421.   
  2422.   static char *elm_fgetline(buf, buflen, fp)
  2423.  
  2424. Index: lib/len_next.c
  2425. Prereq: 5.4
  2426. *** ../elm2.4/lib/len_next.c    Sun Apr 11 21:27:30 1993
  2427. --- lib/len_next.c    Tue Aug  3 15:28:51 1993
  2428. ***************
  2429. *** 1,8 ****
  2430.   
  2431. ! static char rcsid[] = "@(#)$Id: len_next.c,v 5.4 1993/04/12 01:27:30 syd Exp $";
  2432.   
  2433.   /*******************************************************************************
  2434. !  *  The Elm Mail System  -  $Revision: 5.4 $   $State: Exp $
  2435.    *
  2436.    *             Copyright (c) 1992 USENET Community Trust
  2437.    *******************************************************************************
  2438. --- 1,8 ----
  2439.   
  2440. ! static char rcsid[] = "@(#)$Id: len_next.c,v 5.5 1993/08/03 19:28:39 syd Exp $";
  2441.   
  2442.   /*******************************************************************************
  2443. !  *  The Elm Mail System  -  $Revision: 5.5 $   $State: Exp $
  2444.    *
  2445.    *             Copyright (c) 1992 USENET Community Trust
  2446.    *******************************************************************************
  2447. ***************
  2448. *** 13,18 ****
  2449. --- 13,30 ----
  2450.    *
  2451.    *******************************************************************************
  2452.    * $Log: len_next.c,v $
  2453. +  * Revision 5.5  1993/08/03  19:28:39  syd
  2454. +  * Elm tries to replace the system toupper() and tolower() on current
  2455. +  * BSD systems, which is unnecessary.  Even worse, the replacements
  2456. +  * collide during linking with routines in isctype.o.  This patch adds
  2457. +  * a Configure test to determine whether replacements are really needed
  2458. +  * (BROKE_CTYPE definition).  The <ctype.h> header file is now included
  2459. +  * globally through hdrs/defs.h and the BROKE_CTYPE patchup is handled
  2460. +  * there.  Inclusion of <ctype.h> was removed from *all* the individual
  2461. +  * files, and the toupper() and tolower() routines in lib/opt_utils.c
  2462. +  * were dropped.
  2463. +  * From: chip@chinacat.unicom.com (Chip Rosenthal)
  2464. +  *
  2465.    * Revision 5.4  1993/04/12  01:27:30  syd
  2466.    * len_next_part() was botching quote-delimited strings.
  2467.    * From: chip@chinacat.unicom.com (Chip Rosenthal)
  2468. ***************
  2469. *** 54,61 ****
  2470.   
  2471.   **/
  2472.   
  2473. - #include <ctype.h>
  2474. - 
  2475.   
  2476.   int
  2477.   len_next_part(str)
  2478. --- 66,71 ----
  2479.  
  2480. Index: lib/mail_gets.c
  2481. Prereq: 5.2
  2482. *** ../elm2.4/lib/mail_gets.c    Sun Apr 11 21:13:30 1993
  2483. --- lib/mail_gets.c    Tue Aug  3 15:28:52 1993
  2484. ***************
  2485. *** 1,8 ****
  2486.   
  2487. ! static char rcsid[] = "@(#)$Id: mail_gets.c,v 5.2 1993/04/12 01:13:30 syd Exp $";
  2488.   
  2489.   /*******************************************************************************
  2490. !  *  The Elm Mail System  -  $Revision: 5.2 $   $State: Exp $
  2491.    *
  2492.    *             Copyright (c) 1992 USENET Community Trust
  2493.    *******************************************************************************
  2494. --- 1,8 ----
  2495.   
  2496. ! static char rcsid[] = "@(#)$Id: mail_gets.c,v 5.4 1993/08/03 19:28:39 syd Exp $";
  2497.   
  2498.   /*******************************************************************************
  2499. !  *  The Elm Mail System  -  $Revision: 5.4 $   $State: Exp $
  2500.    *
  2501.    *             Copyright (c) 1992 USENET Community Trust
  2502.    *******************************************************************************
  2503. ***************
  2504. *** 13,18 ****
  2505. --- 13,39 ----
  2506.    *
  2507.    *******************************************************************************
  2508.    * $Log: mail_gets.c,v $
  2509. +  * Revision 5.4  1993/08/03  19:28:39  syd
  2510. +  * Elm tries to replace the system toupper() and tolower() on current
  2511. +  * BSD systems, which is unnecessary.  Even worse, the replacements
  2512. +  * collide during linking with routines in isctype.o.  This patch adds
  2513. +  * a Configure test to determine whether replacements are really needed
  2514. +  * (BROKE_CTYPE definition).  The <ctype.h> header file is now included
  2515. +  * globally through hdrs/defs.h and the BROKE_CTYPE patchup is handled
  2516. +  * there.  Inclusion of <ctype.h> was removed from *all* the individual
  2517. +  * files, and the toupper() and tolower() routines in lib/opt_utils.c
  2518. +  * were dropped.
  2519. +  * From: chip@chinacat.unicom.com (Chip Rosenthal)
  2520. +  *
  2521. +  * Revision 5.3  1993/08/03  19:05:33  syd
  2522. +  * When STDC is used on Convex the feof() function is defined as
  2523. +  * a true library routine in the header files and moreover the
  2524. +  * library routine also leaks royally. It returns always 1!!
  2525. +  * So we have to use a macro. Convex naturally does not provide
  2526. +  * you with one though if you are using a STDC compiler. So we
  2527. +  * have to include one.
  2528. +  * From: Jukka Ukkonen <ukkonen@csc.fi>
  2529. +  *
  2530.    * Revision 5.2  1993/04/12  01:13:30  syd
  2531.    * In some cases, with certain editors, the user can create an
  2532.    * aliases.text file in which the last line is terminated with an EOF but
  2533. ***************
  2534. *** 33,40 ****
  2535.   **/
  2536.   
  2537.   #include <stdio.h>
  2538. ! #include <ctype.h>
  2539. ! 
  2540.   
  2541.   int
  2542.   mail_gets(buffer, size, mailfile)
  2543. --- 54,60 ----
  2544.   **/
  2545.   
  2546.   #include <stdio.h>
  2547. ! #include "defs.h"
  2548.   
  2549.   int
  2550.   mail_gets(buffer, size, mailfile)
  2551. ***************
  2552. *** 46,51 ****
  2553. --- 66,72 ----
  2554.       register char *c = buffer;
  2555.   
  2556.       size--; /* allow room for zero terminator on end, just in case */
  2557. + 
  2558.       while (!feof(mailfile) && !ferror(mailfile) && line_bytes < size) {
  2559.         ch = getc(mailfile); /* Macro, faster than  fgetc() ! */
  2560.   
  2561.  
  2562. Index: lib/mcprt.c
  2563. *** ../elm2.4/lib/mcprt.c    Sat Oct  3 18:42:25 1992
  2564. --- lib/mcprt.c    Sun Aug 22 22:49:36 1993
  2565. ***************
  2566. *** 1,4 ****
  2567. --- 1,6 ----
  2568.   
  2569. + static char rcsid[] = "@(#)$Id: mcprt.c,v 5.5 1993/08/23 02:49:35 syd Exp $";
  2570. + 
  2571.   /***********************************************************
  2572.   Copyright 1990, by Alfalfa Software Incorporated, Cambridge, Massachusetts.
  2573.   
  2574. ***************
  2575. *** 35,41 ****
  2576.   
  2577.   01/18/91   3 hamilton    #if not rescanned
  2578.   01/12/91   1 schulert    conditionally use prototypes
  2579. !             rework to use either varargs or stdargs
  2580.   11/03/90   2 hamilton    Alphalpha->Alfalfa & OmegaMail->Poste
  2581.   08/10/90   1 nazgul    printf, sprintf and fprintf
  2582.   */
  2583. --- 37,43 ----
  2584.   
  2585.   01/18/91   3 hamilton    #if not rescanned
  2586.   01/12/91   1 schulert    conditionally use prototypes
  2587. !             rework to use either varargs or stdarg
  2588.   11/03/90   2 hamilton    Alphalpha->Alfalfa & OmegaMail->Poste
  2589.   08/10/90   1 nazgul    printf, sprintf and fprintf
  2590.   */
  2591. ***************
  2592. *** 47,55 ****
  2593. --- 49,61 ----
  2594.   #include "mcprt.h"
  2595.   #include "mcprtlib.h"
  2596.   
  2597. + #ifdef    I_STDARG
  2598. + int    MCprintf(char *fmt, ...)
  2599. + #else
  2600.   int    MCprintf(fmt, va_alist)
  2601.   char *fmt;
  2602.   va_dcl
  2603. + #endif
  2604.   {
  2605.       MCRockT    *rock;
  2606.       int        len, i;
  2607. ***************
  2608. *** 65,74 ****
  2609. --- 71,84 ----
  2610.       return len;
  2611.   }
  2612.   
  2613. + #ifdef    I_STDARG
  2614. + int    MCfprintf(FILE *fptr, char *fmt, ...)
  2615. + #else
  2616.   int    MCfprintf(fptr, fmt, va_alist)
  2617.   FILE *fptr;
  2618.   char *fmt;
  2619.   va_dcl
  2620. + #endif
  2621.   {
  2622.       MCRockT    *rock;
  2623.       int        len, i;
  2624. ***************
  2625. *** 84,93 ****
  2626. --- 94,107 ----
  2627.       return len;
  2628.   }
  2629.   
  2630. + #ifdef    I_STDARG
  2631. + int    MCsprintf(char *cptr, char *fmt, ...)
  2632. + #else
  2633.   int    MCsprintf(cptr, fmt, va_alist)
  2634.   char *cptr;
  2635.   char *fmt;
  2636.   va_dcl
  2637. + #endif
  2638.   {
  2639.       MCRockT    *rock;
  2640.       int        len, i;
  2641.  
  2642. Index: lib/mcprtlib.c
  2643. *** ../elm2.4/lib/mcprtlib.c    Sat Oct  3 18:42:26 1992
  2644. --- lib/mcprtlib.c    Sun Aug 22 22:54:32 1993
  2645. ***************
  2646. *** 1,4 ****
  2647. --- 1,6 ----
  2648.   
  2649. + static char rcsid[] = "@(#)$Id: mcprtlib.c,v 5.5 1993/08/23 02:54:31 syd Exp $";
  2650. + 
  2651.   /***********************************************************
  2652.   Copyright 1990, by Alfalfa Software Incorporated, Cambridge, Massachusetts.
  2653.   
  2654. ***************
  2655. *** 47,53 ****
  2656.   #define    CATGETS
  2657.   
  2658.   #include <stdio.h>
  2659. - #include <ctype.h>
  2660.   #include "defs.h"
  2661.   
  2662.   #include "mcprtlib.h"
  2663. --- 49,54 ----
  2664. ***************
  2665. *** 292,297 ****
  2666. --- 293,302 ----
  2667.        * Set the correct types and figure out how many data segments we are going
  2668.        * to have.
  2669.        */
  2670. +     /* Initialize typeList */
  2671. +     for (i = 0; i < typeCnt; i++)
  2672. +       typeList[i].type = 0;
  2673. + 
  2674.       for (replyCnt = i = 0; i < argCnt; ++i) {
  2675.       if (argList[i].type) {
  2676.           pos = argList[i].pos-1;
  2677. ***************
  2678. *** 580,586 ****
  2679.       if (rock->typeList) free((char *) rock->typeList);
  2680.       
  2681.       if (rock->replyList) {
  2682. !     for (i = 0; i < rock->argCnt; ++i) {
  2683.           if ((rock->replyList[i].argType & MCFree) && rock->replyList[i].data)
  2684.             free(rock->replyList[i].data);
  2685.       }
  2686. --- 585,591 ----
  2687.       if (rock->typeList) free((char *) rock->typeList);
  2688.       
  2689.       if (rock->replyList) {
  2690. !     for (i = 0; i < rock->replyCnt; ++i) {
  2691.           if ((rock->replyList[i].argType & MCFree) && rock->replyList[i].data)
  2692.             free(rock->replyList[i].data);
  2693.       }
  2694.  
  2695.